aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTeddy Wing2017-08-02 22:39:58 +0200
committerTeddy Wing2017-08-02 22:39:58 +0200
commitec4e955566049551fb7b82cc9d935981eee7df01 (patch)
treecb9e033bf1a74b680d9f0a9c581187453b55d39a
parent15bc2c77036596575fc2ecad816befe48839fb0c (diff)
downloadsorbot-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.hs3
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