From 004398d00f628ee1ee4b28c4d9cbe698355cfcb8 Mon Sep 17 00:00:00 2001
From: Klaus Aehlig <aehlig@google.com>
Date: Tue, 7 May 2013 18:28:21 +0200
Subject: [PATCH] Fix lint errors (redundant bracket)

Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
 src/Ganeti/HTools/Program/Hroller.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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