diff options
| -rw-r--r-- | src/CliOptions.hs | 7 | ||||
| -rw-r--r-- | src/Lib.hs | 2 |
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 @@ -13,5 +13,5 @@ import Plugin someFunc :: IO () someFunc = do + parseOptions connectIRC "irc.freenode.net" 6697 "test-bot-7890asdf" - -- parseOptions |