-mkMetaInfo :: BVal -> Maybe Metainfo
-mkMetaInfo (Bdict m) = let (Just info') = mkInfo $ m ! "info"
- announce' = lookup "announce" m
- announceList' = lookup "announce-list" m
- -- creationDate = lookup (Bstr (pack "creation date")) m
- creationDate' = Nothing
- comment' = lookup "comment" m
- createdBy' = lookup "created by" m
- encoding' = lookup "encoding" m
- in Just Metainfo { info = info'
- , announce = announce'
- >>= (\(Bstr a) ->
- Just (unpack a))
- , announceList = getAnnounceList announceList'
- , creationDate = creationDate'
- , comment = maybeBstrToString comment'
- , createdBy = maybeBstrToString createdBy'
- , encoding = maybeBstrToString encoding'
- }
-mkMetaInfo _ = Nothing
+mkMetaInfo :: BVal -> Either String Metainfo
+mkMetaInfo (Bdict m) =
+ let info' = bvalToInfo $ m ! "info"
+ announce' = lookup "announce" m
+ announceList' = lookup "announce-list" m
+ creationDate' = lookup "creation date" m
+ comment' = lookup "comment" m
+ createdBy' = lookup "created by" m
+ encoding' = lookup "encoding" m
+ 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 $ (m ! "info")
+ }
+mkMetaInfo _ = Left "mkMetaInfo: expect an input dict"