X-Git-Url: https://git.rkrishnan.org/?a=blobdiff_plain;f=src%2FFuncTorrent%2FMetainfo.hs;h=21bd532dc251f720818ec3f6ee23c523d6017e39;hb=a893e3db5c7a80dd4012fa501e21a3898db44b83;hp=9eb9955bfff5e4463111e75b5d387599d3f09e73;hpb=470a46ca7cef3d77d5580a2a80faae8d49fe0875;p=functorrent.git diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs index 9eb9955..21bd532 100644 --- a/src/FuncTorrent/Metainfo.hs +++ b/src/FuncTorrent/Metainfo.hs @@ -78,13 +78,10 @@ getAnnounceList (Just (Blist l)) = map (\s -> case s of [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