Add missing space
authorMichele Tartara <mtartara@google.com>
Thu, 13 Feb 2014 12:23:36 +0000 (12:23 +0000)
committerMichele Tartara <mtartara@google.com>
Thu, 13 Feb 2014 13:52:02 +0000 (14:52 +0100)
Also, refactor the line to keep it under 80 chars.

Signed-off-by: Michele Tartara <mtartara@google.com>
Reviewed-by: Klaus Aehlig <aehlig@google.com>

src/Ganeti/HTools/Program/Hbal.hs

index ece465f..1f8eaba 100644 (file)
@@ -201,7 +201,8 @@ execJobSet anno master nl il cref (js:jss) = do
   let jobs = map (\(_, idx, move, _) ->
                     map anno $ Cluster.iMoveToJob nl il idx move) js
       descr = map (\(_, idx, _, _) -> Container.nameOf il idx) js
-      logfn = putStrLn . ("Got job IDs" ++) . commaJoin . map (show . fromJobId)
+      logfn =
+        putStrLn . ("Got job IDs " ++) . commaJoin . map (show . fromJobId)
   putStrLn $ "Executing jobset for instances " ++ commaJoin descr
   jrs <- bracket (L.getClient master) L.closeClient $
          Jobs.execJobsWait jobs logfn