kylefang/graphql-engine
1
0
Fork 0
mirror of https://github.com/zhigang1992/graphql-engine.git synced 2026-05-25 18:32:23 +08:00
Code Issues Packages Projects Releases Wiki Activity

server: coerce 'a' to '[a]' for list input types

Browse Source
This commit is contained in:
Vamshi Surabhi
2018-06-29 10:17:23 +05:30
parent 7e0bb03f17
commit c09725ba79
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
server/src-lib/Hasura/GraphQL/Validate/InputValue.hs
View File

@@ -89,9 +89,9 @@ jsonParser =
jEnum J.Null = pNull
jEnum _ = throwVE "expecting a JSON string for Enum"
jList (J.Array v) = pVal $ V.toList v
jList (J.Array l) = pVal $ V.toList l
jList J.Null = pNull
jList _ = throwVE "expecting a JSON array"
jList v = pVal [v]
jObject (J.Object m) = pVal [(G.Name t, v) | (t, v) <- Map.toList m]
jObject J.Null = pNull
@@ -115,7 +115,7 @@ valueParser =
pList (G.VVariable var) = pVar var
pList (G.VList lv) = pVal $ G.unListValue lv
pList G.VNull = pNull
pList _ = throwVE "expecting a list"
pList v = pVal [v]
pObject (G.VVariable var) = pVar var
pObject (G.VObject ov) = pVal
@@ -144,7 +144,7 @@ constValueParser =
pList (G.VCList lv) = pVal $ G.unListValue lv
pList G.VCNull = pNull
pList _ = throwVE "expecting a list"
pList v = pVal [v]
pObject (G.VCObject ov) = pVal
[(G._ofName oFld, G._ofValue oFld) | oFld <- G.unObjectValue ov]