From cca1293cbaabef8cda8d5a87fdb49a69d7b9aa79 Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Wed, 25 Dec 2013 18:45:22 +0900
Subject: [PATCH] Add union-all example.

---
 relational-query-HDBC-pgTest/example/3/query.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/relational-query-HDBC-pgTest/example/3/query.hs b/relational-query-HDBC-pgTest/example/3/query.hs
index 574227c7..961fe0cd 100644
--- a/relational-query-HDBC-pgTest/example/3/query.hs
+++ b/relational-query-HDBC-pgTest/example/3/query.hs
@@ -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 ()