From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Wed, 4 Feb 2015 15:40:51 +0000 (+0530)
Subject: WIP: metainfo record
X-Git-Url: https://git.rkrishnan.org/vdrive/components/com_hotproperty/simplejson/quickstart.html?a=commitdiff_plain;h=691a14afae70ce22c9752bcdeacdc2fea7316dbf;p=functorrent.git

WIP: metainfo record
---

diff --git a/src/Metainfo.hs b/src/Metainfo.hs
index b8240c5..4522863 100644
--- 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