rename qeFetch to qeFetchFirst

2013-12-19 17:50:25 +02:00 · 2013-12-19 17:50:25 +02:00 · 40c64c7631
commit 40c64c7631
parent a231c7e9f8
4 changed files with 40 additions and 5 deletions
--- a/tools/Language/SQL/SimpleSQL/QueryExprComponents.lhs
+++ b/tools/Language/SQL/SimpleSQL/QueryExprComponents.lhs
@ -138,7 +138,7 @@ These are a few misc tests which don't fit anywhere else.
 >              {qeSelectList = [(Nothing,Iden "a")]
 >              ,qeFrom = [TRSimple "t"]
 >              ,qeOffset = o
->              ,qeFetch = l}
+>              ,qeFetchFirst = l}

 > combos :: TestItem
 > combos = Group "combos" $ map (uncurry TestQueryExpr)