misc formatting

diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs
index 9eb9955bfff5e4463111e75b5d387599d3f09e73..21bd532dc251f720818ec3f6ee23c523d6017e39 100644 (file)
--- 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