diff options
| author | Teddy Wing | 2017-09-11 00:43:16 +0200 |
|---|---|---|
| committer | Teddy Wing | 2017-09-13 04:47:08 +0200 |
| commit | c0cdcfecf1082982b78a5cf1d053025e0edadcef (patch) | |
| tree | a0796638dc92db79dfb48263d64a1b2500f48768 | |
| parent | 613e0d9a67d29b2bb27efd7ca993d4108724b30a (diff) | |
| download | sorbot-c0cdcfecf1082982b78a5cf1d053025e0edadcef.tar.bz2 | |
gitHubCommitAction: Didn't need `liftIO` here
Added this for whatever reason trying to get types to line up, but it's
not necessary. In fact, I didn't even really notice it as I was bothered
by another compiler error, but 'monochrom' on Freenode#haskell pointed
it out, thanks.
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index 454e838..11e444e 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -42,7 +42,7 @@ gitHubCommitAction message = do :: Bot [RepoUrlRow] liftIO $ close dbConn - liftIO $ respond rs + respond rs where respond :: Bot (Either T.Text T.Text) respond [] = do |