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 356cea5b8..8269c88e1 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
--
GitLab