Synnefo » snf-ganeti

  , parseOptsInner

-- | Show the program version info.

versionInfo :: String -> String

versionInfo progname =

  printf "%s %s\ncompiled with %s %s\nrunning on %s %s\n"

         progname Version.version compilerName

         (Data.Version.showVersion compilerVersion)

         os arch

  case parseOptsInner argv progname options of

    Left (code, msg) -> do

      hPutStr (if code == 0 then stdout else stderr) msg

      exitWith (if code == 0 then ExitSuccess else ExitFailure code)

    Right result ->

      return result

-- | Inner parse options. The arguments are similar to 'parseOpts',

-- but it returns either a 'Left' composed of exit code and message,

-- or a 'Right' for the success case.

parseOptsInner :: [String] -> String -> [OptType]

               -> Either (Int, String) (Options, [String])

parseOptsInner argv progname options =

      let (pr, args) = (foldM (flip id) defaultOptions o, n)

      in case pr of

           Bad msg -> Left (1, "Error while parsing command\

                               \line arguments:\n" ++ msg ++ "\n")

           Ok po ->

             select (Right (po, args))

                 [ (optShowHelp po, Left (0, usageHelp progname options))

                 , (optShowVer po,  Left (0, versionInfo progname))

                 ]

    (_, _, errs) ->

      Left (2, "Command line error: "  ++ concat errs ++ "\n" ++

            usageHelp progname options)