Revision 88a10df5 htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
88 88
import System.IO
89 89
import System.Info
90 90
import System.Exit
91
import Text.Printf (printf, hPrintf)
91
import Text.Printf (printf)
92 92

  
93 93
import qualified Ganeti.HTools.Version as Version(version)
94 94
import qualified Ganeti.HTools.Container as Container
......
577 577
      m_dsk = optMdsk opts
578 578

  
579 579
  unless (null offline_wrong) $ do
580
         hPrintf stderr "Error: Wrong node name(s) set as offline: %s\n"
581
                     (commaJoin (map lrContent offline_wrong)) :: IO ()
582
         exitWith $ ExitFailure 1
580
         exitErr $ printf "wrong node name(s) set as offline: %s\n"
581
                   (commaJoin (map lrContent offline_wrong))
583 582
  let setMCpuFn = case m_cpu of
584 583
                    Nothing -> id
585 584
                    Just new_mcpu -> flip Node.setMcpu new_mcpu

Also available in: Unified diff