WIP: info record
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Wed, 4 Feb 2015 15:55:06 +0000 (21:25 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Wed, 4 Feb 2015 15:55:06 +0000 (21:25 +0530)
src/Metainfo.hs

index 452286372c7f2627b77864ce32958e3322396af9..58a2369b14d1bc674cc77ed49932453d1a66befe 100644 (file)
@@ -1,9 +1,19 @@
 module Metainfo where
 
 import qualified Bencode as Benc
+import qualified Data.ByteString.Char8 as BC
 import Data.Time.Clock
 
-data Metainfo = MetaInfo { info :: Benc.BVal
+-- only single file mode supported for the time being.
+data Info = Info { pieceLength :: Integer
+                 , pieces :: BC.ByteString
+                 , private :: Maybe Integer
+                 , name :: String
+                 , lengthInBytes :: Integer
+                 , md5sum :: Maybe String }
+          deriving (Eq)
+
+data Metainfo = MetaInfo { info :: Info
                          , announce :: String
                          , announceList :: Maybe [[String]]
                          , creationDate :: Maybe UTCTime