diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index ec6684d..b95cfd2 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -20,7 +20,7 @@ gitHubCommit = Plugin -- gitHubCommitAction :: M.Message -> Connection -> IO String gitHubCommitAction :: PluginAction gitHubCommitAction message dbConn = do - rs <- query_ dbConn "SELECT id, channel, repo_url \ + rs <- query_ dbConn "SELECT channel, repo_url \ \ FROM plugin_github_commit_channel_repo_urls \ \ LIMIT 1" :: IO [ChannelRepoUrl] return $ response rs @@ -37,10 +37,9 @@ type RepoUrl = String -- | A type to match the database table for this plugin. -- data ChannelRepoUrl = ChannelRepoUrl Id M.Channel RepoUrl deriving (Show) data ChannelRepoUrl = ChannelRepoUrl - { id :: Id - , channel :: M.Channel + { channel :: M.Channel , repoUrl :: RepoUrl } deriving (Show) instance FromRow ChannelRepoUrl where - fromRow = ChannelRepoUrl <$> field <*> field <*> field + fromRow = ChannelRepoUrl <$> field <*> field |