From 691a14afae70ce22c9752bcdeacdc2fea7316dbf Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Wed, 4 Feb 2015 21:10:51 +0530
Subject: [PATCH] WIP: metainfo record

---
 src/Metainfo.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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
-- 
2.45.2