Parse client command line options

src/Forest/Client/Options.hs

@@ -0,0 +1,44 @@
+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 parser mempty