CliOptions(parseOptions): Return options

Make the parsed options accessible to the rest of the program.

2 files changed, 6 insertions, 5 deletions

diff --git a/src/CliOptions.hs b/src/CliOptions.hs
index b848e2b..60f05ad 100644
--- a/src/CliOptions.hs
+++ b/src/CliOptions.hs
@@ -1,5 +1,7 @@
 module CliOptions
-    ( parseOptions
+    ( Options(..)
+
+    , parseOptions
     ) where
 
 import Data.Semigroup ((<>))
@@ -24,10 +26,9 @@ options = Options
         <> value "en"
         <> help "Set the language Sorbot will speak in (en | fr)" )
 
-parseOptions :: IO ()
+parseOptions :: IO Options
 parseOptions = do
     execParser opts
-    return ()
   where
     opts = info (options <**> helper)
          ( fullDesc
diff --git a/src/Lib.hs b/src/Lib.hs
index ba89bf7..3d875ef 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -6,12 +6,12 @@ module Lib
 
 import Database.SQLite.Simple
 
-import CliOptions (parseOptions)
+import CliOptions (Options(language), parseOptions)
 import IRC (connectIRC)
 import Message
 import Plugin
 
 someFunc :: IO ()
 someFunc = do
-    parseOptions
+    options <- parseOptions
     connectIRC "irc.freenode.net" 6697 "test-bot-7890asdf"