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 | 
