diff options
author | Teddy Wing | 2017-08-02 22:39:58 +0200 |
---|---|---|
committer | Teddy Wing | 2017-08-02 22:39:58 +0200 |
commit | ec4e955566049551fb7b82cc9d935981eee7df01 (patch) | |
tree | cb9e033bf1a74b680d9f0a9c581187453b55d39a | |
parent | 15bc2c77036596575fc2ecad816befe48839fb0c (diff) | |
download | sorbot-ec4e955566049551fb7b82cc9d935981eee7df01.tar.bz2 |
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.
-rw-r--r-- | src/Plugin/GitHubCommit.hs | 3 |
1 files changed, 0 insertions, 3 deletions
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 |