WIP: info record

diff --git a/src/Metainfo.hs b/src/Metainfo.hs
index 452286372c7f2627b77864ce32958e3322396af9..58a2369b14d1bc674cc77ed49932453d1a66befe 100644 (file)
--- a/src/Metainfo.hs
+++ b/src/Metainfo.hs
@@ -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