From: Ramakrishnan Muthukrishnan Date: Wed, 4 Feb 2015 15:40:51 +0000 (+0530) Subject: WIP: metainfo record X-Git-Url: https://git.rkrishnan.org/?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