Revision d605e261 src/Ganeti/HTools/Program/Hbal.hs

b/src/Ganeti/HTools/Program/Hbal.hs
192 192 
      descr = map (\(_, idx, _, _) -> Container.nameOf il idx) js
193 193 
      logfn = putStrLn . ("Got job IDs" ++) . commaJoin . map (show . fromJobId)
194 194 
  putStrLn $ "Executing jobset for instances " ++ commaJoin descr
195 
  jrs <- bracket (L.getClient master) L.closeClient $
195 
  jrs <- bracket (L.getLuxiClient master) L.closeClient $
196 196 
         Jobs.execJobsWait jobs logfn
197 197 
  case jrs of
198 198 
    Bad x -> return $ Bad x

Also available in: Unified diff