Revision a81ca843 src/Ganeti/HTools/Program/Hbal.hs
b/src/Ganeti/HTools/Program/Hbal.hs | ||
---|---|---|
54 | 54 |
import Ganeti.HTools.ExtLoader |
55 | 55 |
import Ganeti.HTools.Types |
56 | 56 |
import Ganeti.HTools.Loader |
57 |
import Ganeti.OpCodes (wrapOpCode, setOpComment, OpCode, MetaOpCode) |
|
57 |
import Ganeti.OpCodes (wrapOpCode, setOpComment, setOpPriority, |
|
58 |
OpCode, MetaOpCode) |
|
58 | 59 |
import Ganeti.Jobs as Jobs |
59 | 60 |
import Ganeti.Types |
60 | 61 |
import Ganeti.Utils |
... | ... | |
93 | 94 |
, oExTags |
94 | 95 |
, oExInst |
95 | 96 |
, oSaveCluster |
97 |
, oPriority |
|
96 | 98 |
] |
97 | 99 |
|
98 | 100 |
-- | The list of arguments supported by the program. |
... | ... | |
224 | 226 |
Nothing -> |
225 | 227 |
return $ Bad "Execution of commands possible only on LUXI" |
226 | 228 |
Just master -> |
227 |
execWithCancel annotateOpCode master fin_nl il cmd_jobs) |
|
229 |
let annotator = maybe id setOpPriority (optPriority opts) . |
|
230 |
annotateOpCode |
|
231 |
in execWithCancel annotator master fin_nl il cmd_jobs) |
|
228 | 232 |
else return $ Ok () |
229 | 233 |
|
230 | 234 |
-- | Signal handler for graceful termination. |
Also available in: Unified diff