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