Fix lint errors (redundant bracket)

Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>

diff --git a/src/Ganeti/HTools/Program/Hroller.hs b/src/Ganeti/HTools/Program/Hroller.hs
index 356cea5..8269c88 100644 (file)
--- a/src/Ganeti/HTools/Program/Hroller.hs
+++ b/src/Ganeti/HTools/Program/Hroller.hs
@@ -137,8 +137,8 @@ main opts args = do
       Just grp -> return (Just grp)
 
   let nodes = IntMap.filter (foldl (liftA2 (&&)) (const True)
-                             [ (not . Node.offline) 
-                             , (hasTag $ optNodeTags opts)
+                             [ not . Node.offline 
+                             , hasTag $ optNodeTags opts
                              , hasGroup wantedGroup ])
               nlf