thunderstrike/purescript-postgresql-client
thunderstrike/purescript-postgresql-client
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

format records appropriately

Browse Source
This commit is contained in:
isaac tovsky 2020-04-30 10:57:33 +02:00
parent c45e9e80eb
commit 7e1d5e2248
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Database/PostgreSQL.purs
View File

@ -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

7
test/Main.purs
View File

@ -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