Revision 2746a72c
| b/htools/Ganeti/HTools/Program/Hbal.hs | ||
|---|---|---|
| 56 | 56 |
import Ganeti.HTools.ExtLoader |
| 57 | 57 |
import Ganeti.HTools.Types |
| 58 | 58 |
import Ganeti.HTools.Loader |
| 59 |
import Ganeti.Types (fromJobId) |
|
| 59 | 60 |
import Ganeti.Utils |
| 60 | 61 |
|
| 61 | 62 |
import qualified Ganeti.Luxi as L |
| ... | ... | |
| 213 | 214 |
case jids of |
| 214 | 215 |
Bad e -> return . Bad $ "Job submission error: " ++ formatError e |
| 215 | 216 |
Ok x -> do |
| 216 |
putStrLn $ "Got job IDs " ++ commaJoin (map show x) |
|
| 217 |
putStrLn $ "Got job IDs " ++ |
|
| 218 |
commaJoin (map (show . fromJobId) x) |
|
| 217 | 219 |
waitForJobs client x |
| 218 | 220 |
) |
| 219 | 221 |
case jrs of |
Also available in: Unified diff