+ handshake datatype

1 files changed, 25 insertions, 0 deletions

diff --git a/src/Network/Torrent/Handshake.hs b/src/Network/Torrent/Handshake.hs
new file mode 100644
index 00000000..d48d04e6
--- /dev/null
+++ b/src/Network/Torrent/Handshake.hs
@@ -0,0 +1,25 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Network.Torrent.Handshake
+       ( Handshake
+       ) where
+
+import Data.Word
+import           Data.ByteString (ByteString)
+import qualified Data.ByteString as B
+
+data Handshake = Handshake {
+    hsProtocol    :: ByteString
+  , hsReserved    :: Word64
+  , hsInfoHash    :: ByteString
+  , hsPeerID      :: ByteString
+  } deriving (Show, Eq)
+
+defaultProtocol :: ByteString
+defaultProtocol = "BitTorrent protocol"
+
+
+fromByteString :: ByteString -> Handshake
+fromByteString = undefined
+
+toByteString :: Handshake -> ByteString
+toByteString = undefined
\ No newline at end of file