module ServantSerf.Type.Flag where import qualified System.Console.GetOpt as Console data Flag = ApiName String | Depth String | ExcludeSuffix String | Help | ModuleName String | ServerName String | Version deriving (Flag -> Flag -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Flag -> Flag -> Bool $c/= :: Flag -> Flag -> Bool == :: Flag -> Flag -> Bool $c== :: Flag -> Flag -> Bool Eq, Int -> Flag -> ShowS [Flag] -> ShowS Flag -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Flag] -> ShowS $cshowList :: [Flag] -> ShowS show :: Flag -> String $cshow :: Flag -> String showsPrec :: Int -> Flag -> ShowS $cshowsPrec :: Int -> Flag -> ShowS Show) options :: [Console.OptDescr Flag] options :: [OptDescr Flag] options = [ forall a. String -> [String] -> ArgDescr a -> String -> OptDescr a Console.Option [Char 'h', Char '?'] [String "help"] (forall a. a -> ArgDescr a Console.NoArg Flag Help) String "Shows this help message, then exits.", forall a. String -> [String] -> ArgDescr a -> String -> OptDescr a Console.Option [] [String "version"] (forall a. a -> ArgDescr a Console.NoArg Flag Version) String "Shows the version number, then exits.", forall a. String -> [String] -> ArgDescr a -> String -> OptDescr a Console.Option [] [String "api-name"] (forall a. (String -> a) -> String -> ArgDescr a Console.ReqArg String -> Flag ApiName String "API_NAME") String "Sets the name to use for the API type. Defaults to `API`.", forall a. String -> [String] -> ArgDescr a -> String -> OptDescr a Console.Option [] [String "depth"] (forall a. (String -> a) -> String -> ArgDescr a Console.ReqArg String -> Flag Depth String "DEPTH") String "Controls whether to search through only one directory (`shallow`) or recursively (`deep`). Defaults to `deep`.", forall a. String -> [String] -> ArgDescr a -> String -> OptDescr a Console.Option [] [String "exclude-suffix"] (forall a. (String -> a) -> String -> ArgDescr a Console.ReqArg String -> Flag ExcludeSuffix String "SUFFIX") String "Sets the module suffix to exclude. Defaults to the empty string.", forall a. String -> [String] -> ArgDescr a -> String -> OptDescr a Console.Option [] [String "module-name"] (forall a. (String -> a) -> String -> ArgDescr a Console.ReqArg String -> Flag ModuleName String "MODULE_NAME") String "Sets the name of the generated module. By default this is generated from the source file name.", forall a. String -> [String] -> ArgDescr a -> String -> OptDescr a Console.Option [] [String "server-name"] (forall a. (String -> a) -> String -> ArgDescr a Console.ReqArg String -> Flag ServerName String "SERVER_NAME") String "Sets the name to use for the server value. Defaults to `server`." ]