diff options
| author | Teddy Wing | 2017-08-11 00:07:44 +0200 |
|---|---|---|
| committer | Teddy Wing | 2017-08-11 00:07:44 +0200 |
| commit | 9af1dc2195e291e58172b3f076afb869a1d3f35b (patch) | |
| tree | e575a43b6054f784ded5af59a5e266e7c4aa1531 | |
| parent | eca3a0e78e20258bd165053e7832a0490432c59a (diff) | |
| download | sorbot-9af1dc2195e291e58172b3f076afb869a1d3f35b.tar.bz2 | |
gitHubCommitAction: Ignore unused variable
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index 73b617c..33b26df 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -28,7 +28,7 @@ gitHubCommitAction message dbConn = do where respond [] = Left "I couldn't find a repo URL for this channel. \ \Try `git remote set origin REPO_URL`" - respond ((RepoUrlRow r):rs) = + respond ((RepoUrlRow r):_) = Right $ r ++ "/commits/" ++ M.text message =~ matchRegex gitHubCommit type Id = Int |