CliOptions: Add command line option for language

Provide a way to switch languages when starting the bot.

2 files changed, 8 insertions, 1 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
diff --git a/src/Lib.hs b/src/Lib.hs
index f08b289..ba89bf7 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -13,5 +13,5 @@ import Plugin
 
 someFunc :: IO ()
 someFunc = do
+    parseOptions
     connectIRC "irc.freenode.net" 6697 "test-bot-7890asdf"
-    -- parseOptions