From a04090da0bb3962d0437cdf10d2e39bf00daca95 Mon Sep 17 00:00:00 2001
From: Tomasz Rybarczyk <paluho@gmail.com>
Date: Sun, 16 Dec 2018 18:58:02 +0100
Subject: [PATCH] Fix coding style

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

diff --git a/src/Database/PostgreSQL/PG.purs b/src/Database/PostgreSQL/PG.purs
index aa08b01..44c9c63 100644
--- a/src/Database/PostgreSQL/PG.purs
+++ b/src/Database/PostgreSQL/PG.purs
@@ -5,6 +5,7 @@ module Database.PostgreSQL.PG
 , PG
 , command
 , execute
+, hoistPG
 , query
 , onIntegrityError
 , scalar
@@ -40,11 +41,11 @@ type Database = String
 -- | PGError a)`.
 type PG a = ExceptT PGError Aff a
 
-hoistPG ∷ ∀ m. MonadAff m ⇒ PG ~> ExceptT PGError m
+hoistPG :: forall m. MonadAff m => PG ~> ExceptT PGError m
 hoistPG m = ExceptT $ liftAff $
   runExceptT m >>= case _ of
-    Right a → pure (Right a)
-    Left pgError → pure (Left pgError)
+    Right a -> pure (Right a)
+    Left pgError -> pure (Left pgError)
 
 -- | Run an action with a connection. The connection is released to the pool
 -- | when the action returns.