From c0cdcfecf1082982b78a5cf1d053025e0edadcef Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Mon, 11 Sep 2017 00:43:16 +0200
Subject: 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.
---
 src/Plugin/GitHubCommit.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Plugin/GitHubCommit.hs')

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
-- 
cgit v1.2.3