[PATCH master 1/5] Remove trailing whitespace

[Klaus Aehlig]

Signed-off-by: Klaus Aehlig <aeh...@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 d62263b..4e3dd3e 100644
--- a/src/Ganeti/HTools/Program/Hroller.hs
+++ b/src/Ganeti/HTools/Program/Hroller.hs
@@ -94,7 +94,7 @@ getStats colorings = snd . foldr helper (0,"") $ algBySize 
colorings
 -- | Predicate of belonging to a given group restriction.
 hasGroup :: Maybe Group.Group -> Node.Node -> Bool
 hasGroup Nothing _ = True
-hasGroup (Just grp) node = Node.group node == Group.idx grp 
+hasGroup (Just grp) node = Node.group node == Group.idx grp
 
 -- | Predicate of having at least one tag in a given set.
 hasTag :: Maybe [String] -> Node.Node -> Bool
@@ -140,7 +140,7 @@ main opts args = do
       Just grp -> return (Just grp)
 
   let nodes = IntMap.filter (foldl (liftA2 (&&)) (const True)
-                             [ not . Node.offline 
+                             [ not . Node.offline
                              , hasTag $ optNodeTags opts
                              , hasGroup wantedGroup ])
               nlf
-- 
1.8.2.1