diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-11-22 08:00:50 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-11-22 08:00:50 +0100 |
| commit | 625d7100ca123e5aff265fb843ec4979d76a9f7d (patch) | |
| tree | 22cb595ea2dd944789a5144eb373fe7be8190f11 /src/Language/GraphQL/AST/Parser.hs | |
| parent | 73e21661b413192c26a539141a44b0c25e8c2aa9 (diff) | |
| download | graphql-625d7100ca123e5aff265fb843ec4979d76a9f7d.tar.gz | |
Try type parsers in a different order
Diffstat (limited to 'src/Language/GraphQL/AST/Parser.hs')
| -rw-r--r-- | src/Language/GraphQL/AST/Parser.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Language/GraphQL/AST/Parser.hs b/src/Language/GraphQL/AST/Parser.hs index a5b6681..1505615 100644 --- a/src/Language/GraphQL/AST/Parser.hs +++ b/src/Language/GraphQL/AST/Parser.hs @@ -152,9 +152,9 @@ defaultValue = equals *> value -- * Input Types type_ :: Parser Type -type_ = try (TypeNamed <$> name <* but "!") - <|> TypeList <$> brackets type_ - <|> TypeNonNull <$> nonNullType +type_ = try (TypeNonNull <$> nonNullType) + <|> TypeList <$> brackets type_ + <|> TypeNamed <$> name <?> "type_ error!" nonNullType :: Parser NonNullType |