misc formatting
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Mon, 3 Aug 2015 14:38:03 +0000 (20:08 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Mon, 3 Aug 2015 14:38:03 +0000 (20:08 +0530)
src/FuncTorrent/Metainfo.hs

index 9eb9955bfff5e4463111e75b5d387599d3f09e73..21bd532dc251f720818ec3f6ee23c523d6017e39 100644 (file)
@@ -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