From: Klaus Aehlig <aehlig@google.com>
Date: Tue, 7 May 2013 16:28:21 +0000 (+0200)
Subject: Fix lint errors (redundant bracket)
X-Git-Tag: v2.9.0beta1~374
X-Git-Url: https://code.grnet.gr/git/ganeti-local/commitdiff_plain/004398d00f628ee1ee4b28c4d9cbe698355cfcb8?ds=sidebyside

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
--- 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