module Forest.Client.Options
  ( ClientOptions(..)
  , clientOptionsParserInfo
  ) where

import           Options.Applicative

data ClientOptions = ClientOptions
  { clientHostName :: String
  , clientPort     :: Int
  , clientPath     :: String
  , clientSsl      :: Bool
  }

parser :: Parser ClientOptions
parser = ClientOptions
  <$> strArgument
      (  help "The name of the host to connect to"
      <> metavar "HOST"
      )
  <*> option auto
      (  short 'p'
      <> long "port"
      <> help "The port to connect to"
      <> value 11133 -- Chosen by fair dice roll
      <> showDefault
      <> metavar "PORT"
      )
  <*> strOption
      (  short 'P'
      <> long "path"
      <> help "The path to connect to on the given domain"
      <> value ""
      <> showDefault
      <> metavar "PATH"
      )
  <*> flag True False -- Ssl enabled by default
      (  short 'n'
      <> long "no-ssl"
      <> help "This flag disables ssl on outgoing websocket connections"
      )

clientOptionsParserInfo :: ParserInfo ClientOptions
clientOptionsParserInfo = info (helper <*> parser) mempty