Option.hs

module Rattletrap.Console.Option where

import qualified Rattletrap.Console.Flag as Flag
import qualified System.Console.GetOpt as Console

type Option = Console.OptDescr Flag.Flag

all :: [Option]
all = [compact, fast, help, input, mode, output, schema, skipCrc, version]

compact :: Option
compact =
  Console.Option
    ['c']
    ["compact"]
    (Console.NoArg Flag.Compact)
    "minify JSON output"

fast :: Option
fast =
  Console.Option
    ['f']
    ["fast"]
    (Console.NoArg Flag.Fast)
    "only encode or decode the header"

help :: Option
help = Console.Option ['h'] ["help"] (Console.NoArg Flag.Help) "show the help"

input :: Option
input =
  Console.Option
    ['i']
    ["input"]
    (Console.ReqArg Flag.Input "FILE|URL")
    "input file or URL"

mode :: Option
mode =
  Console.Option
    ['m']
    ["mode"]
    (Console.ReqArg Flag.Mode "MODE")
    "decode or encode"

output :: Option
output =
  Console.Option
    ['o']
    ["output"]
    (Console.ReqArg Flag.Output "FILE")
    "output file"

schema :: Option
schema =
  Console.Option [] ["schema"] (Console.NoArg Flag.Schema) "output the schema"

skipCrc :: Option
skipCrc =
  Console.Option [] ["skip-crc"] (Console.NoArg Flag.SkipCrc) "skip the CRC"

version :: Option
version =
  Console.Option
    ['v']
    ["version"]
    (Console.NoArg Flag.Version)
    "show the version"