From b8d535020feeea4233306c2063f19c25f383384f Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 20 Aug 2017 17:37:53 +0200
Subject: CliOptions: Add command line option for language

Provide a way to switch languages when starting the bot.
---
 src/CliOptions.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/CliOptions.hs')

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
-- 
cgit v1.2.3