Allow using nulls order without explicit order direction, fix #552

2016-10-04 16:11:19 -05:00
parent 9b7685e5d1
commit 50ae48295d
5 changed files with 19 additions and 6 deletions
@@ -307,7 +307,7 @@ requestToQuery schema isParent (DbRead (Node (Select colSelects tbls conditions
            queryTerm :: OrderTerm -> Text
            queryTerm t = " "
                <> toS (pgFmtColumn qi $ otTerm t) <> " "
-                <> show (otDirection t) <> " "
+                <> maybe "" show (otDirection t) <> " "
                <> maybe "" show (otNullOrder t) <> " "
    (joins, selects) = foldr getQueryParts ([],[]) forest