aboutsummaryrefslogtreecommitdiffstats
path: root/src/Plugin
diff options
context:
space:
mode:
Diffstat (limited to 'src/Plugin')
-rw-r--r--src/Plugin/GitHubCommit.hs19
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