Improve the error message for command line errors

Instead of using ioError . userError, we format the error ourselves.
This is nicer - no ‘)’ at the end of the output.

diff --git a/Ganeti/HTools/CLI.hs b/Ganeti/HTools/CLI.hs
index 1672435..5bd47ad 100644 (file)
--- a/Ganeti/HTools/CLI.hs
+++ b/Ganeti/HTools/CLI.hs
@@ -296,8 +296,10 @@ parseOpts argv progname options =
                      os arch
               exitWith ExitSuccess
             return resu
-      (_, _, errs) ->
-          ioError (userError (concat errs ++ usageHelp progname options))
+      (_, _, errs) -> do
+        hPutStrLn stderr $ "Command line error: "  ++ concat errs
+        hPutStrLn stderr $ usageHelp progname options
+        exitWith $ ExitFailure 2
 
 -- | Parse the environment and return the node\/instance names.
 --