From 39731ff2338d74bfabf9863fb5921e8f255858dd Mon Sep 17 00:00:00 2001
From: Danny Navarro <j@dannynavarro.net>
Date: Sun, 12 Feb 2017 15:31:56 -0300
Subject: [PATCH] Fix parsing of Named Types

---
 Data/GraphQL/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/GraphQL/Parser.hs b/Data/GraphQL/Parser.hs
index 0fb0ffc..3b72104 100644
--- 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!"