Synnefo » snf-ganeti

import Data.Char (toLower)

import System.Environment

import System.IO

import Ganeti.Utils

-- | Display usage and exit.

usage :: String -> IO ()

usage name = do

  hPutStrLn stderr $ "Unrecognised personality '" ++ name ++ "'."

  hPutStrLn stderr "This program must be executed specifying one of the \

                    \following names as the first parameter:"

  mapM_ (hPutStrLn stderr . ("  - " ++) . fst) personalities

  exitErr "Please specify the desired role."

main = do

  cmd_args <- getArgs

  let binary =

        if null cmd_args

          then ""

          else head cmd_args

      name = map toLower binary

      boolnames = map (\(x, y) -> (x == name, Just y)) personalities

  case select Nothing boolnames of

    Nothing -> usage name

    Just (fn, options, arguments) -> do

         let actual_args = tail cmd_args

         real_options <- options

         (opts, args) <- parseOpts defaultOptions actual_args name

                           (real_options ++ genericOptions) arguments

         fn opts args