-maybeToList :: Maybe a -> [a]
-maybeToList Nothing = []
-maybeToList (Just x) = [x]
+mkMetaInfo :: BVal -> Either String Metainfo
+mkMetaInfo (Bdict minfo) =
+ let info' = bvalToInfo $ minfo ! "info"
+ announce' = lookup "announce" minfo
+ announceList' = lookup "announce-list" minfo
+ creationDate' = lookup "creation date" minfo
+ comment' = lookup "comment" minfo
+ createdBy' = lookup "created by" minfo
+ encoding' = lookup "encoding" minfo
+ in Right Metainfo {
+ info = info'
+ , announceList = maybeToList (announce' >>= bstrToString)
+ ++ getAnnounceList announceList'
+ , creationDate = bValToInteger =<< creationDate'
+ , comment = bstrToString =<< comment'
+ , createdBy = bstrToString =<< createdBy'
+ , encoding = bstrToString =<< encoding'
+ , infoHash = hash . encode $ (minfo ! "info")
+ }
+mkMetaInfo _ = Left "mkMetaInfo: expect an input dict"