Fix a few hlint errors

diff --git a/Ganeti/HTools/Cluster.hs b/Ganeti/HTools/Cluster.hs
index 9deaece..f7a6e69 100644 (file)
--- a/Ganeti/HTools/Cluster.hs
+++ b/Ganeti/HTools/Cluster.hs
@@ -483,8 +483,8 @@ tryAlloc nl _ inst 2 =
 
 tryAlloc nl _ inst 1 =
     let all_nodes = getOnline nl
-        sols = foldl' (\cstate p ->
-                           concatAllocs cstate $ allocateOnSingle nl inst p
+        sols = foldl' (\cstate ->
+                           concatAllocs cstate . allocateOnSingle nl inst
                       ) ([], 0, Nothing) all_nodes
     in return sols
 

diff --git a/Ganeti/HTools/Luxi.hs b/Ganeti/HTools/Luxi.hs
index 68d5ffc..487929d 100644 (file)
--- a/Ganeti/HTools/Luxi.hs
+++ b/Ganeti/HTools/Luxi.hs
@@ -266,7 +266,7 @@ parseNode v = fail ("Invalid node query result: " ++ show v)
 -- | Builds the cluster data from an URL.
 loadData :: String -- ^ Unix socket to use as source
          -> IO (Result (Node.AssocList, Instance.AssocList))
-loadData master = do -- IO monad
+loadData master =
   E.bracket
        (getClient master)
        closeClient

diff --git a/hspace.hs b/hspace.hs
index 89e50de..9f9f012 100644 (file)
--- a/hspace.hs
+++ b/hspace.hs
@@ -312,7 +312,7 @@ main = do
   let ini_cv = Cluster.compCV nl
       ini_stats = Cluster.totalResources nl
 
-  when (verbose > 2) $ do
+  when (verbose > 2) $
          hPrintf stderr "Initial coefficients: overall %.8f, %s\n"
                  ini_cv (Cluster.printStats nl)