From 9af1dc2195e291e58172b3f076afb869a1d3f35b Mon Sep 17 00:00:00 2001 From: Teddy Wing Date: Fri, 11 Aug 2017 00:07:44 +0200 Subject: gitHubCommitAction: Ignore unused variable --- src/Plugin/GitHubCommit.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3