From 79fde02d8108dc1593412a126caaded070fab9d8 Mon Sep 17 00:00:00 2001 From: Jake Wheat 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