remove unnecessary parenthesis (hlint suggestion)
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Thu, 26 Mar 2015 10:58:47 +0000 (16:28 +0530)
committerRamakrishnan Muthukrishnan <rama.krishnan@concur.com>
Mon, 30 Mar 2015 05:05:09 +0000 (10:35 +0530)
src/FuncTorrent/Metainfo.hs

index dad0865bfbb4eae1e6bc8d28ed9adb8e2d9cf971..1fd9475d7baf9b9701639826318d5bc380dae836 100644 (file)
@@ -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