ekitai.hs

   1 import System.Console.GetOpt
   2 import System.Environment
   3 import System.Exit
   4 import Data.Maybe
   5 import Data.Either
   6
   7 data Flag
   8
   9 data Options = Options
  10     { optHelp       :: Bool
  11     , optColor      :: Bool
  12     }
  13
  14 defaultOptions = Options
  15     { optHelp       = False
  16     , optColor      = False
  17     }
  18
  19 options :: [OptDescr (Options -> Options)]
  20 options =
  21     [ Option ['h'] ["help"]
  22         (NoArg (\ opts -> opts { optHelp = True }))
  23         "display's this message"
  24     , Option ['c'] ["color", "colour"]
  25         (NoArg (\ opts -> opts { optColor = True }))
  26         "enables color"
  27     ]
  28
  29 ekitaiOpts :: [String] -> Either String (Options, String)
  30 ekitaiOpts argv =
  31     case getOpt RequireOrder options argv of
  32         (o, n, []) -> undefined
  33         (_, _, err) -> Left "invalid"
  34
  35 main = do
  36     argv <- getArgs
  37     return 0
  38