From 691a14afae70ce22c9752bcdeacdc2fea7316dbf Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan 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