khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-09-17 11:58:26 +03:00
Code Issues Projects Releases Wiki Activity

Add union-all example.

Browse Source
This commit is contained in:
Kei Hibino 2013-12-25 18:45:22 +09:00
parent acc849918a
commit cca1293cba
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-query-HDBC-pgTest/example/3/query.hs
View File

@ -36,6 +36,9 @@ append op = relation $ do
u :: Relation () (Int32, String)
u = append union
uAll :: Relation () (Int32, String)
uAll = append unionAll
e :: Relation () (Int32, String)
e = append except
@ -68,6 +71,7 @@ run = handleSqlError' $ withConnectionIO connect
run' qa ()
run' qb ()
run' u ()
run' uAll ()
run' e ()
run' i ()
run' i2 ()