Revision 2d6bdcc5 src/Ganeti/HTools/Program/Hbal.hs

b/src/Ganeti/HTools/Program/Hbal.hs
186 186 
execCancelWrapper anno master nl il cref alljss = do
187 187 
  cancel <- readIORef cref
188 188 
  if cancel > 0
189 
    then return . Bad $ "Exiting early due to user request, " ++
190 
                        show (length alljss) ++ " jobset(s) remaining."
189 
    then do
190 
      putStrLn $ "Exiting early due to user request, " ++
191 
               show (length alljss) ++ " jobset(s) remaining."
192 
      return $ Ok ()
191 193 
    else execJobSet anno master nl il cref alljss
192 194 

  		





  193
  195
  
    
-- | Execute an entire jobset.


  		












Also available in:
  Unified diff