Go to file
2021-11-08 17:21:03 +01:00
src/Database feat: Could not match type NonEmptyList with type Array 2021-02-11 21:31:17 +02:00
test Replace removed unsafeStringify with local version 2021-05-12 04:36:49 -07:00
.editorconfig Extract from dinote 2016-12-22 19:12:38 +01:00
.env-example Separate Pool module. Make test database configurable. 2020-11-09 15:54:23 +01:00
.gitignore Update .gitignore 2020-11-09 15:56:32 +01:00
AUTHORS Add AUTHORS file 2018-12-06 20:30:38 +01:00
bower.json Update bower file deps to match package set versions 2021-05-12 04:45:48 -07:00
CHANGELOG.md Generate CHANGELOG.md 2020-02-29 16:45:25 +01:00
LICENSE Update copyright year 2017-06-03 16:07:09 +02:00
Makefile Remove tuple machinery in favour of row types 2017-06-03 13:27:14 +02:00
package.json Update pulp to v15.0.0 2021-05-12 04:36:58 -07:00
packages.dhall Use polyform deps that have been updated to v0.14.1 PS 2021-05-12 04:36:27 -07:00
README.md Separate Pool module. Make test database configurable. 2020-11-09 15:54:23 +01:00
Rows.pl Remove tuple machinery in favour of row types 2017-06-03 13:27:14 +02:00
spago.dhall Remove unused dependencies 2021-05-12 04:37:46 -07:00

purescript-postgresql-client

purescript-postgresql-client is a PostgreSQL client library for PureScript based on node-postgres.

Install

To use this library, you need to add pg and decimal.js as an npm dependency. You can also find first of them on https://github.com/brianc/node-postgres.

Usage

This guide is a literate Purescript file which is extracted into testing module (using literate-purescript) so it is a little verbose.

Let's start with imports.

module Test.README where

import Prelude

import Control.Monad.Except.Trans (ExceptT, runExceptT)
import Database.PostgreSQL.PG (defaultConfiguration, PGError, command, execute, Pool, Connection, query, Query(Query))
import Database.PostgreSQL.PG as PG
import Database.PostgreSQL.Pool (new) as Pool
import Database.PostgreSQL.Row (Row0(Row0), Row3(Row3))
import Data.Decimal as Decimal
import Data.Maybe (Maybe(..))
import Data.Tuple.Nested ((/\))
import Effect.Aff (Aff)
import Effect.Class (liftEffect)
import Test.Assert (assert)

The whole API for interaction with PostgreSQL is performed asynchronously in Aff (the only function which runs in plain Effect is Pool.new). Core library functions usually results in somthing like Aff (Either PGError a) which can be easily wrapped by user into ExceptT or any other custom monad stack. To be honest we provide alternatives to functions in the Database.PostgreSQL.PG module that work on any stack m with MonadError PGError m and MonadAff m. The module contains two functions withConnection and withTransaction that require additional parameter - a transformation from a custom monad stack to Aff (Either PGError a). We are going to work with PG type in this tutorial but please don't consider it as the only option if you encounter any troubles integrating it into your own app monad stack.

type PG a = ExceptT PGError Aff a

withConnection :: forall a. Pool -> (Connection -> PG a) -> PG a
withConnection = PG.withConnection runExceptT

withTransaction :: forall a. Connection -> PG a -> PG a
withTransaction = PG.withTransaction runExceptT

We assume here that Postgres is running on a standard local port with ident authentication so configuration can be nearly empty (defaultConfiguration). It requires only database name which we pass to newPool function. Additionally we pass idleTimeoutMillis value because this code is run by our test suite and we want to exit after its execution quickly ;-)

run ∷ PG Unit
run = do

  pool <- liftEffect $ Pool.new
    ((defaultConfiguration "purspg") { idleTimeoutMillis = Just 1000 })
  withConnection pool \conn -> do

We can now create our temporary table which we are going to query in this example. execute ignores result value which is what we want in this case. The last Row0 value indicates that this Query doesn't take any additional parameters.


    execute conn (Query """
      CREATE TEMPORARY TABLE fruits (
        name text NOT NULL,
        delicious boolean NOT NULL,
        price NUMERIC(4,2) NOT NULL,
        added TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT CURRENT_TIMESTAMP,
        PRIMARY KEY (name)
      );
    """) Row0

There is withTransaction helper provided. You can wrap the whole piece of interaction with database in it. It will rollback if any exception is thrown during execution of a given Aff block. It excecutes COMMIT in the other case. We start our session with insert of some data. It is done by execute function with INSERT statement. Please notice that we are passing a tuple of the arguments to this query using dedicated constructor. In this case Row3. This library provides types from Row0 to Row19 and they are wrappers which provide instances for automatic conversions from and to SQL values. For details please investigate following classes ToSQLRow, ToSQLValue, FromSQLRow and FromSQLValue.

    withTransaction conn $ do
      execute conn (Query """
        INSERT INTO fruits (name, delicious, price)
        VALUES ($1, $2, $3)
      """) (Row3 "coconut" true (Decimal.fromString "8.30"))

We can also use nested tuples instead of Row* constructors. This can be a bit more verbose but is not restricted to limited and constant number of arguments. /\ is just an alias for the Tuple constructor from Data.Tuple.Nested.

      execute conn (Query """
        INSERT INTO fruits (name, delicious, price)
        VALUES ($1, $2, $3)
      """) ("lemon" /\ false /\ Decimal.fromString "3.30")

Of course Row* types and nested tuples can be also used when we are fetching data from db. query function processes db response and returns an Array of rows.

      names <- query conn (Query """
        SELECT name, delicious
        FROM fruits
        ORDER BY name ASC
      """) Row0
      liftEffect <<< assert $ names == ["coconut" /\ true, "lemon" /\ false]

There is also a command function at our disposal. Some postgres SQL expressions return a "command tag" which carries a value with a number of rows which were affected by a given query. For example we can have: DELETE rows, UPDATE rows, INSERT oid rows etc. This function should return rows value associated with given response.

      deleted <- command conn (Query """DELETE FROM fruits """) Row0
      liftEffect <<< assert $ deleted == 2

Generating SQL Queries

The purspg preprocessor has been replaced by sqltopurs, which is a code generator instead of a preprocessor, and easier to use.

Hacking

Testing

Test database is read from the environment or loaded from .env file. You can find .env-example in the repo with some simple testing db setup.

Releasing

Till we are hosted on the github platform let's just use github releasing model for tagging new versions and github-release-notes to generate CHANGELOG.md from it:

$ # This only requires repo access $ export GREN_GITHUB_TOKEN=... $ github-release-notes changelog --override