From 79fde02d8108dc1593412a126caaded070fab9d8 Mon Sep 17 00:00:00 2001
From: Jake Wheat <jakewheatmail@gmail.com>
Date: Wed, 9 Apr 2014 18:31:14 +0300
Subject: [PATCH] fix default for distinct/all in union in the pretty printer

---
 Language/SQL/SimpleSQL/Pretty.lhs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Language/SQL/SimpleSQL/Pretty.lhs b/Language/SQL/SimpleSQL/Pretty.lhs
index ceb9b1c..2d243c5 100644
--- a/Language/SQL/SimpleSQL/Pretty.lhs
+++ b/Language/SQL/SimpleSQL/Pretty.lhs
@@ -193,8 +193,8 @@ which have been changed to try to improve the layout of the output.
 >                 Intersect -> "intersect"
 >                 Except -> "except")
 >        <+> case d of
->                All -> empty
->                Distinct -> text "distinct"
+>                All -> text "all"
+>                Distinct -> empty -- text "distinct"
 >        <+> case c of
 >                Corresponding -> text "corresponding"
 >                Respectively -> empty