starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

renames OrderField->SortSpec, InThing->InPredValue

Browse source
This commit is contained in:
Jake Wheat 2013-12-18 16:27:06 +02:00
parent b89f2a011c
commit b631497a04
8 changed files with 40 additions and 40 deletions
tools/Language/SQL/SimpleSQL
QueryExprComponents.lhs

16
tools/Language/SQL/SimpleSQL/QueryExprComponents.lhs
View file

@ -89,22 +89,22 @@ These are a few misc tests which don't fit anywhere else.
> orderBy :: TestItem
> orderBy = Group "orderBy" $ map (uncurry TestQueryExpr)
> [("select a from t order by a"
> ,ms [OrderField (Iden "a") Asc NullsOrderDefault])
> ,ms [SortSpec (Iden "a") Asc NullsOrderDefault])
> ,("select a from t order by a, b"
> ,ms [OrderField (Iden "a") Asc NullsOrderDefault
> ,OrderField (Iden "b") Asc NullsOrderDefault])
> ,ms [SortSpec (Iden "a") Asc NullsOrderDefault
> ,SortSpec (Iden "b") Asc NullsOrderDefault])
> ,("select a from t order by a asc"
> ,ms [OrderField (Iden "a") Asc NullsOrderDefault])
> ,ms [SortSpec (Iden "a") Asc NullsOrderDefault])
> ,("select a from t order by a desc, b desc"
> ,ms [OrderField (Iden "a") Desc NullsOrderDefault
> ,OrderField (Iden "b") Desc NullsOrderDefault])
> ,ms [SortSpec (Iden "a") Desc NullsOrderDefault
> ,SortSpec (Iden "b") Desc NullsOrderDefault])
> ,("select a from t order by a desc nulls first, b desc nulls last"
> ,ms [OrderField (Iden "a") Desc NullsFirst
> ,OrderField (Iden "b") Desc NullsLast])
> ,ms [SortSpec (Iden "a") Desc NullsFirst
> ,SortSpec (Iden "b") Desc NullsLast])
> ]
> where