CliOptions: Add command line option for language

Provide a way to switch languages when starting the bot.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/CliOptions.hs b/src/CliOptions.hs
index 861f48e..b848e2b 100644
--- a/src/CliOptions.hs
+++ b/src/CliOptions.hs
@@ -7,6 +7,7 @@ import Options.Applicative
 
 data Options = Options
     { slackApiToken :: String
+    , language      :: String
     }
 
 options :: Parser Options
@@ -16,6 +17,12 @@ options = Options
         <> metavar "TOKEN"
         <> value ""
         <> help "Token to access Slack's real-time messaging API" )
+    <*> strOption
+         ( long "language"
+        <> short 'l'
+        <> metavar "en"
+        <> value "en"
+        <> help "Set the language Sorbot will speak in (en | fr)" )
 
 parseOptions :: IO ()
 parseOptions = do