remove unnecessary parenthesis (hlint suggestion)

diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs
index dad0865bfbb4eae1e6bc8d28ed9adb8e2d9cf971..1fd9475d7baf9b9701639826318d5bc380dae836 100644 (file)
--- 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