diff options
Diffstat (limited to 'src/Plugin/GitHubCommit.hs')
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index 33b26df..dc94731 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -26,8 +26,9 @@ gitHubCommitAction message dbConn = do :: IO [RepoUrlRow] return $ respond rs where - respond [] = Left "I couldn't find a repo URL for this channel. \ - \Try `git remote set origin REPO_URL`" + respond [] = + Left "I couldn't find a repo URL for this channel. \ + \Try `git remote set origin REPO_URL`" respond ((RepoUrlRow r):_) = Right $ r ++ "/commits/" ++ M.text message =~ matchRegex gitHubCommit |