change set quantifier and sort direction to represent default separately

2014-04-18 11:18:21 +03:00 · 2014-04-18 11:18:21 +03:00 · 3df87a3cf9
commit 3df87a3cf9
parent c814cc9437
8 changed files with 55 additions and 49 deletions
--- a/tools/Language/SQL/SimpleSQL/FullQueries.lhs
+++ b/tools/Language/SQL/SimpleSQL/FullQueries.lhs
@ -33,7 +33,7 @@ Some tests for parsing full queries.
 >       ,qeGroupBy = [SimpleGroup $ Iden "a"]
 >       ,qeHaving = Just $ BinOp (App "count" [NumLit "1"])
 >                                ">" (NumLit "5")
->       ,qeOrderBy = [SortSpec (Iden "s") Asc NullsOrderDefault]
+>       ,qeOrderBy = [SortSpec (Iden "s") DirDefault NullsOrderDefault]
 >       }
 >      )
 >     ]