jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update PgQuery.hs

Browse Source 
I'm a bit baffled nobody noticed this before :P

Anyhow, without it order does not work.

Thanks,
Cheers
This commit is contained in:
João Cristóvão
2015-02-11 19:49:31 +00:00
parent 699d6d78dc
commit 0a3057e92d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PgQuery.hs
+1 -1
View File
@@ -162,7 +162,7 @@ orderParse q =
orderParseTerm :: Text -> Maybe OrderTerm orderParseTerm :: Text -> Maybe OrderTerm
orderParseTerm s = orderParseTerm s =
case split (=='.') s of case split (=='.') s of
[d,c] -> [c,d] ->
if d `elem` ["asc", "desc"] if d `elem` ["asc", "desc"]
then Just $ OrderTerm c $ then Just $ OrderTerm c $
if d == "asc" then "asc" else "desc" if d == "asc" then "asc" else "desc"