From a893e3db5c7a80dd4012fa501e21a3898db44b83 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org> Date: Mon, 3 Aug 2015 20:08:03 +0530 Subject: [PATCH] misc formatting --- src/FuncTorrent/Metainfo.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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 -- 2.45.2