From df7e6f87da6848825721a9cd7da3b21a4dacef6f Mon Sep 17 00:00:00 2001
From: Jake Wheat <jakewheatmail@gmail.com>
Date: Thu, 19 Dec 2013 12:54:48 +0200
Subject: [PATCH] change pretty printer to output 'fetch first' instead of
 'fetch next'

---
 Language/SQL/SimpleSQL/Pretty.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Language/SQL/SimpleSQL/Pretty.lhs b/Language/SQL/SimpleSQL/Pretty.lhs
index d239908..aa6b0c6 100644
--- a/Language/SQL/SimpleSQL/Pretty.lhs
+++ b/Language/SQL/SimpleSQL/Pretty.lhs
@@ -178,7 +178,7 @@
 >       ,maybeValueExpr "having" hv
 >       ,orderBy od
 >       ,maybe empty (\e -> text "offset" <+> valueExpr e <+> text "rows") off
->       ,maybe empty (\e -> text "fetch next" <+> valueExpr e
+>       ,maybe empty (\e -> text "fetch first" <+> valueExpr e
 >                           <+> text "rows only") fe
 >       ]
 > queryExpr (CombineQueryExpr q1 ct d c q2) =