[Bstr s''] -> unpack s''
_ -> ""
_ -> "") l
-
getAnnounceList (Just (Bdict _)) = []
torrentToMetainfo :: ByteString -> Either String Metainfo
torrentToMetainfo s =
case decode s of
- Right d ->
- mkMetaInfo d
- Left e ->
- Left $ show e
+ Right d -> mkMetaInfo d
+ Left e -> Left $ show e