From: Ramakrishnan Muthukrishnan Date: Thu, 26 Mar 2015 10:58:47 +0000 (+0530) Subject: remove unnecessary parenthesis (hlint suggestion) X-Git-Url: https://git.rkrishnan.org/pf/quickstart.html?a=commitdiff_plain;h=757e0088fe47bcc41984c73ee47dd24601aa39fa;p=functorrent.git remove unnecessary parenthesis (hlint suggestion) --- diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs index dad0865..1fd9475 100644 --- a/src/FuncTorrent/Metainfo.hs +++ b/src/FuncTorrent/Metainfo.hs @@ -89,6 +89,6 @@ getAnnounceList (Just (Blist l)) = map (\s -> case s of getAnnounceList (Just (Bdict _)) = [] getTrackers :: Metainfo -> [String] -getTrackers m = case (announce m) of +getTrackers m = case announce m of Nothing -> announceList m Just a -> a : announceList m