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