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