From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Mon, 3 Aug 2015 14:38:03 +0000 (+0530)
Subject: misc formatting
X-Git-Url: https://git.rkrishnan.org/%5B/%5D%20/uri/flags/%22doc.html/frontends/cyclelanguage?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