From 5792fb1fc1439994a4877761820d8d034b66110d Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 20 Aug 2017 18:17:54 +0200
Subject: CliOptions(parseOptions): Return options

Make the parsed options accessible to the rest of the program.
---
 src/CliOptions.hs | 7 ++++---
 src/Lib.hs        | 4 ++--
 2 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'src')

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