Revision 5cbf7832 src/Ganeti/HTools/Program/Harep.hs
b/src/Ganeti/HTools/Program/Harep.hs | ||
---|---|---|
268 | 268 |
when (isJust arData) $ do |
269 | 269 |
let tag = arTag $ fromJust arData |
270 | 270 |
putStrLn (">>> Adding the following tag to " ++ iname ++ ":\n" ++ show tag) |
271 |
tagName <- mkNonEmpty iname |
|
272 |
execJobsWaitOk' [OpTagsSet TagKindInstance [tag] (Just tagName)] |
|
271 |
execJobsWaitOk' [OpTagsSet TagKindInstance [tag] (Just iname)] |
|
273 | 272 |
|
274 | 273 |
unless (null rmTags) $ do |
275 | 274 |
putStr (">>> Removing the following tags from " ++ iname ++ ":\n" ++ |
276 | 275 |
unlines (map show rmTags)) |
277 |
tagName <- mkNonEmpty iname |
|
278 |
execJobsWaitOk' [OpTagsDel TagKindInstance rmTags (Just tagName)] |
|
276 |
execJobsWaitOk' [OpTagsDel TagKindInstance rmTags (Just iname)] |
|
279 | 277 |
|
280 | 278 |
return instData { tagsToRemove = [] } |
281 | 279 |
|
Also available in: Unified diff