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 +++++++
 src/Lib.hs        | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

(limited to 'src')

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