diff options
Diffstat (limited to 'src/Plugin')
-rw-r--r-- | src/Plugin/GitHubCommit.hs | 19 |
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 |