wolf-0.2.9: main/Options.hs

module Options
  ( configFile
  , planFile
  , inputFile
  , containerFile
  , queue
  , containerless
  , gzip
  , commandLine
  , timeout
  ) where

import BasicPrelude
import Options.Applicative

configFile :: Parser String
configFile =
  strOption
    $  long    "config"
    <> short   'c'
    <> metavar "FILE"
    <> help    "AWS SWF Service Flow config"

planFile :: Parser String
planFile =
  strOption
    $  long    "plan"
    <> short   'p'
    <> metavar "FILE"
    <> help    "AWS SWF Service Flow plan"

inputFile :: Parser (Maybe String)
inputFile =
  optional $ strOption
    $ long     "input"
    <> short   'i'
    <> metavar "FILE"
    <> help    "AWS SWF Service Flow input"

containerFile :: Parser String
containerFile =
  strOption
    $  long    "container"
    <> short   'x'
    <> metavar "FILE"
    <> help    "AWS SWF Service Flow worker container"

queue :: Parser String
queue =
  strOption
    $  long    "queue"
    <> short   'q'
    <> metavar "NAME"
    <> help    "AWS SWF Service Flow queue"

containerless :: Parser (Maybe String)
containerless =
  optional $ strOption
    $  long    "containerless"
    <> metavar "DIR"
    <> help    "Run outside of container in directory"

gzip :: Parser Bool
gzip =
  switch
    $  long "gzip"
    <> help "GZIP contents of artifacts"

commandLine :: Parser String
commandLine =
  strOption
    $  long    "command-line"
    <> short   'l'
    <> metavar "COMMAND"
    <> help    "Command to run"

timeout :: Parser Int
timeout =
  option auto
    $  long    "timeout"
    <> short   't'
    <> metavar "TIMEOUT"
    <> help    "Timeout in seconds"