Revision 0e2a45dd
| b/src/Ganeti/HTools/Program/Hbal.hs | ||
|---|---|---|
| 201 | 201 |
let jobs = map (\(_, idx, move, _) -> |
| 202 | 202 |
map anno $ Cluster.iMoveToJob nl il idx move) js |
| 203 | 203 |
descr = map (\(_, idx, _, _) -> Container.nameOf il idx) js |
| 204 |
logfn = putStrLn . ("Got job IDs" ++) . commaJoin . map (show . fromJobId)
|
|
| 204 |
logfn = |
|
| 205 |
putStrLn . ("Got job IDs " ++) . commaJoin . map (show . fromJobId)
|
|
| 205 | 206 |
putStrLn $ "Executing jobset for instances " ++ commaJoin descr |
| 206 | 207 |
jrs <- bracket (L.getClient master) L.closeClient $ |
| 207 | 208 |
Jobs.execJobsWait jobs logfn |
Also available in: Unified diff