From 7e1d5e2248e97da05ae9ea6fc540ef0c6d759a8a Mon Sep 17 00:00:00 2001
From: isaac tovsky <isaactovsky@outlook.com>
Date: Thu, 30 Apr 2020 10:57:33 +0200
Subject: [PATCH] format records appropriately

---
 src/Database/PostgreSQL.purs | 3 ++-
 test/Main.purs               | 7 +++++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/Database/PostgreSQL.purs b/src/Database/PostgreSQL.purs
index 9a6241c..2e7497b 100644
--- a/src/Database/PostgreSQL.purs
+++ b/src/Database/PostgreSQL.purs
@@ -93,7 +93,8 @@ getDefaultPoolConfigurationByUri uri = hush $ flip runParser uri do
        , max: Nothing
        , password: Just $ toStr password
        , port: fromString $ toStr port
-       , user: Just $ toStr user }
+       , user: Just $ toStr user
+       }
   where tillChar = manyTill anyChar
         toStr = foldMap singleton
 
diff --git a/test/Main.purs b/test/Main.purs
index 644f703..1605bf4 100644
--- a/test/Main.purs
+++ b/test/Main.purs
@@ -380,7 +380,9 @@ noSuchDatabaseConfig =
 
 cannotConnectConfig :: PoolConfiguration
 cannotConnectConfig =
-  config { host = Just "127.0.0.1", port = Just 45287 }
+  config { host = Just "127.0.0.1"
+         , port = Just 45287
+         }
 
 validUriToPoolConfigs :: { uri :: PgConnectionUri, poolConfig :: PoolConfiguration }
 validUriToPoolConfigs = {
@@ -391,7 +393,8 @@ validUriToPoolConfigs = {
                 , max: Nothing
                 , password: Just "c52275a95b7f177e2850c49de9bfa8bedc457ce860ccca664cb15db973554969"
                 , port: Just 5432
-                , user: Just "urllgqrivcyako" }
+                , user: Just "urllgqrivcyako"
+                }
   }
 
 notValidConnUri :: PgConnectionUri