Fix parsing of Named Types

2017-02-12 15:31:56 -03:00
parent b7a72591fd
commit 39731ff233
1 changed files with 1 additions and 1 deletions
--- a/Data/GraphQL/Parser.hs
+++ b/Data/GraphQL/Parser.hs
@ -179,7 +179,7 @@ defaultValue = tok "=" *> value
 -- * Input Types

 type_ :: Parser Type
-type_ = TypeNamed   <$> name
+type_ = TypeNamed   <$> name <* but "!"
    <|> TypeList    <$> brackets type_
    <|> TypeNonNull <$> nonNullType
    <?> "type_ error!"