module System.Console.Internal where
import Data.Map (Map)
import qualified System.Console.GetOpt as GetOpt
data Action
= Action
{
run :: [String] -> Map Identifier (Maybe String) -> IO ()
, nonOptions :: [String]
, options :: [GetOpt.OptDescr (Identifier,Maybe String)]
, ignoringOptions :: [GetOpt.OptDescr (Identifier,Maybe String)]
}
data Identifier = Short Char | Long String
deriving (Eq,Ord)
data Option a = Option
Identifier
(GetOpt.OptDescr (Identifier,Maybe String))
a
(Maybe String -> Either String a)
data Command
= Command
{
name :: String
, description :: String
, action :: Action
}