diff options
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index a12087c..2786ca6 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -18,9 +18,12 @@ gitHubCommit = Plugin gitHubCommitAction :: PluginAction gitHubCommitAction message dbConn = do - rs <- query_ dbConn "SELECT channel, repo_url \ + rs <- query dbConn "SELECT channel, repo_url \ \ FROM plugin_github_commit_channel_repo_urls \ - \ LIMIT 1" :: IO [ChannelRepoUrl] + \ WHERE channel = ? \ + \ LIMIT 1" + (Only (M.channel message)) + :: IO [ChannelRepoUrl] return $ response rs where response [] = "" |