GitHubCommit: Extract language handling to a function

Move the CLI option extracting to a new function that moves the option
parsing logic outside the plugin.

1 files changed, 7 insertions, 12 deletions

diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs
index b8ecf9e..74658a9 100644
--- a/src/Plugin/GitHubCommit.hs
+++ b/src/Plugin/GitHubCommit.hs
@@ -12,7 +12,7 @@ import Text.Regex.TDFA
 
 import I18n
 import qualified Message as M
-import CliOptions (Options(language), parseOptions)
+import qualified CliOptions as Cli (lang)
 import Plugin.Base
 
 gitHubCommit = defaultPlugin
@@ -33,20 +33,15 @@ gitHubCommitAction message = do
         :: IO [RepoUrlRow]
     close dbConn
 
-    opts <- parseOptions
-    let lang = language opts
-
-    return $ respond rs lang
+    respond rs
   where
-    respond [] lang =
-        Left $ translate lang GitHubCommitRepoURLNotFound
-    respond ((RepoUrlRow r):_) _ =
-        Right $ r `T.append` "/commits/" `T.append` T.pack (
+    respond [] = do
+        lang <- Cli.lang
+        return $ Left $ translate lang GitHubCommitRepoURLNotFound
+    respond ((RepoUrlRow r):_) =
+        return $ Right $ r `T.append` "/commits/" `T.append` T.pack (
             M.textStr message =~ matchRegex gitHubCommit)
 
--- TODO
--- lang :: 
-
 type Id = Int
 
 type RepoUrl = T.Text