CliOptions(parseOptions): Return options

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

1 files changed, 4 insertions, 3 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