diff --git a/src/Database/PostgreSQL.purs b/src/Database/PostgreSQL.purs
index ac29e6e..e0ed1c5 100644
--- a/src/Database/PostgreSQL.purs
+++ b/src/Database/PostgreSQL.purs
@@ -91,9 +91,9 @@ newtype Query i o = Query String
 derive instance newtypeQuery :: Newtype (Query i o) _
 
 -- | Create a new connection pool.
-newPool :: PoolConfiguration -> Aff Pool
+newPool :: PoolConfiguration -> Effect Pool
 newPool cfg =
-    liftEffect <<< ffiNewPool $ cfg'
+    ffiNewPool $ cfg'
     where
     cfg' =
         { user: toNullable cfg.user