OSS/graphql
1
1
Fork 1
Code Issues 5 Pull Requests Actions Releases 22 Wiki Activity

Add missing = required default values and unions

Browse Source
This commit is contained in:
Danny Navarro 2015-09-13 17:44:31 +02:00
parent 048ee552d8
commit b206079047
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Data/GraphQL/Parser.hs
View File

@ -73,7 +73,10 @@ variableDefinition :: Parser VariableDefinition
variableDefinition = variableDefinition =
VariableDefinition <$> variable <* s <* ":" <* s VariableDefinition <$> variable <* s <* ":" <* s
<*> type_ <* s <*> type_ <* s
<*> value <*> (defaultValue <|> empty)
defaultValue :: Parser DefaultValue
defaultValue = "=" *> s *> value
-- In defense of good taste, I'm taking liberty of not allowing space between -- In defense of good taste, I'm taking liberty of not allowing space between
-- '$' and the 'name' even though that's not in the spec. -- '$' and the 'name' even though that's not in the spec.
@ -248,6 +251,7 @@ unionTypeDefinition :: Parser UnionTypeDefinition
unionTypeDefinition = UnionTypeDefinition unionTypeDefinition = UnionTypeDefinition
<$ "union" <* s1 <$ "union" <* s1
<*> name <* s <*> name <* s
<* "=" <* s
<*> unionMembers <*> unionMembers
where where
-- This should take care of standalone `NamedType` -- This should take care of standalone `NamedType`