nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-22 01:52:45 +03:00
Code Issues Projects Releases Wiki Activity

Correct the demo

Browse Source
This commit is contained in:
Nikita Volkov 2020-01-28 21:31:23 +03:00
parent b8eb8443ee
commit 0dd388b29d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
README.md
View File

@ -50,7 +50,7 @@ Hasql is not just a single library, it is a granular ecosystem of composable lib
Following is a complete application, which performs some arithmetic in Postgres using Hasql.
```haskell
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}
import Prelude
import Data.Int
import Data.Functor.Contravariant
@ -105,14 +105,14 @@ sumAndDivModSession a b c = do
sumStatement :: Statement (Int64, Int64) Int64
sumStatement =
[TH.singletonStatement|
select $1 :: int8 + $2 :: int8
select ($1 :: int8 + $2 :: int8) :: int8
|]
divModStatement :: Statement (Int64, Int64) (Int64, Int64)
divModStatement =
[TH.singletonStatement|
select
($1 :: int8) / ($2 :: int8),
($1 :: int8) % ($2 :: int8)
(($1 :: int8) / ($2 :: int8)) :: int8,
(($1 :: int8) % ($2 :: int8)) :: int8
|]
```