From: Ramakrishnan Muthukrishnan Date: Mon, 3 Aug 2015 14:38:03 +0000 (+0530) Subject: misc formatting X-Git-Url: https://git.rkrishnan.org/components/com_hotproperty/frontends/%22file:/$rel_link?a=commitdiff_plain;h=a893e3db5c7a80dd4012fa501e21a3898db44b83;p=functorrent.git misc formatting --- 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