From 600c643738b4a07c3a4f595d0a23b0654a9584b4 Mon Sep 17 00:00:00 2001
From: Tomasz Rybarczyk <paluho@gmail.com>
Date: Sat, 22 Dec 2018 19:52:37 +0100
Subject: [PATCH] Hoist to correct monad in PG.hoist*

---
 src/Database/PostgreSQL/PG.purs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Database/PostgreSQL/PG.purs b/src/Database/PostgreSQL/PG.purs
index ba8c045..01af3da 100644
--- a/src/Database/PostgreSQL/PG.purs
+++ b/src/Database/PostgreSQL/PG.purs
@@ -42,14 +42,14 @@ type Database = String
 -- | PGError a)`.
 type PG a = ExceptT PGError Aff a
 
-hoistWith :: forall e m. MonadAff m => MonadError e m => (PGError -> e) -> PG ~> ExceptT e m
+hoistWith :: forall e m. MonadAff m => MonadError e m => (PGError -> e) -> PG ~> m
 hoistWith f m = do
   result <- liftAff $ runExceptT m
   case result of
     Right a -> pure a
     Left pgError -> throwError (f pgError)
 
-hoist :: forall m. MonadAff m => MonadError PGError m => PG ~> ExceptT PGError m
+hoist :: forall m. MonadAff m => MonadError PGError m => PG ~> m
 hoist = hoistWith identity
 
 -- | Run an action with a connection. The connection is released to the pool