Add ability to order by jsonb keys, fix #644

This commit is contained in:
SteveBash
2016-10-05 14:46:12 -05:00
parent 980680f3d6
commit 191601f129
6 changed files with 15 additions and 4 deletions
+2 -2
View File
@@ -136,7 +136,7 @@ pOrder = lexeme pOrderTerm `sepBy` char ','
pOrderTerm :: Parser OrderTerm
pOrderTerm =
try ( do
c <- pFieldName
c <- pField
d <- optionMaybe (try $ pDelimiter *> (
try(string "asc" *> pure OrderAsc)
<|> try(string "desc" *> pure OrderDesc)
@@ -147,4 +147,4 @@ pOrderTerm =
))
return $ OrderTerm c d nls
)
<|> OrderTerm <$> (toS <$> pFieldName) <*> pure Nothing <*> pure Nothing
<|> OrderTerm <$> pField <*> pure Nothing <*> pure Nothing