From 757e0088fe47bcc41984c73ee47dd24601aa39fa Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Thu, 26 Mar 2015 16:28:47 +0530 Subject: [PATCH] remove unnecessary parenthesis (hlint suggestion) --- src/FuncTorrent/Metainfo.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.37.2