Revision 164947cc htools/Ganeti/HTools/Program/Hbal.hs

b/htools/Ganeti/HTools/Program/Hbal.hs
196 196 
      descr = map (\(_, idx, _, _) -> Container.nameOf il idx) js
197 197 
      logfn = putStrLn . ("Got job IDs" ++) . commaJoin . map (show . fromJobId)
198 198 
  putStrLn $ "Executing jobset for instances " ++ commaJoin descr
199 
  jrs <- bracket (L.getClient master) L.closeClient
200 
         (\client -> Jobs.execJobsWait client jobs logfn)
199 
  jrs <- bracket (L.getClient master) L.closeClient $
200 
         Jobs.execJobsWait jobs logfn
201 201 
  case jrs of
202 202 
    Bad x -> return $ Bad x
203 203 
    Ok x -> if null failures

Also available in: Unified diff