From ec4e955566049551fb7b82cc9d935981eee7df01 Mon Sep 17 00:00:00 2001 From: Teddy Wing Date: Wed, 2 Aug 2017 22:39:58 +0200 Subject: GitHubCommit.hs: Remove progress development comments Added these while developing ff00355ade021d3e06d55017c5337f488474e5cb to test out different theories while trying to get the project to compile. These are no longer relevant any more, so delete them. --- src/Plugin/GitHubCommit.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/Plugin/GitHubCommit.hs') diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index b95cfd2..a12087c 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -16,8 +16,6 @@ gitHubCommit = Plugin , perform = gitHubCommitAction } --- gitHubCommitAction :: IO PluginAction --- gitHubCommitAction :: M.Message -> Connection -> IO String gitHubCommitAction :: PluginAction gitHubCommitAction message dbConn = do rs <- query_ dbConn "SELECT channel, repo_url \ @@ -35,7 +33,6 @@ type Id = Int 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 { channel :: M.Channel , repoUrl :: RepoUrl -- cgit v1.2.3