WIP: metainfo record

diff --git a/src/Metainfo.hs b/src/Metainfo.hs
index b8240c53b8abfa44dda9e37ec1e3261034811746..452286372c7f2627b77864ce32958e3322396af9 100644 (file)
--- a/src/Metainfo.hs
+++ b/src/Metainfo.hs
@@ -1 +1,15 @@
 module Metainfo where
+
+import qualified Bencode as Benc
+import Data.Time.Clock
+
+data Metainfo = MetaInfo { info :: Benc.BVal
+                         , announce :: String
+                         , announceList :: Maybe [[String]]
+                         , creationDate :: Maybe UTCTime
+                         , comment :: Maybe String
+                         , createdBy :: Maybe String
+                         , encoding :: Maybe String }
+              deriving (Eq)
+
+mkMetaInfo :: Benv.BVal -> MetaInfo