From d88acf3d0e8f9b9d5345477b23e329cefec89b6f Mon Sep 17 00:00:00 2001
From: Danny Navarro <j@dannynavarro.net>
Date: Fri, 18 Sep 2015 15:02:51 +0200
Subject: [PATCH] Refine numeric types

---
 Data/GraphQL/AST.hs    | 4 +++-
 Data/GraphQL/Parser.hs | 1 -
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Data/GraphQL/AST.hs b/Data/GraphQL/AST.hs
index 422ce9e..7e8c9b5 100644
--- a/Data/GraphQL/AST.hs
+++ b/Data/GraphQL/AST.hs
@@ -1,5 +1,6 @@
 module Data.GraphQL.AST where
 
+import Data.Int (Int32)
 import Data.Text (Text)
 
 -- * Name
@@ -61,7 +62,8 @@ type TypeCondition = NamedType
 -- * Values
 
 data Value = ValueVariable Variable
-           | ValueInt Int
+           | ValueInt Int32
+           -- GraphQL Float is double precison
            | ValueFloat Double
            | ValueBoolean Bool
            | ValueString Text
diff --git a/Data/GraphQL/Parser.hs b/Data/GraphQL/Parser.hs
index fa8c532..99700c0 100644
--- a/Data/GraphQL/Parser.hs
+++ b/Data/GraphQL/Parser.hs
@@ -150,7 +150,6 @@ value :: Parser Value
 value = ValueVariable <$> variable
     -- TODO: Handle maxBound, Int32 in spec.
     <|> ValueInt      <$> tok (signed decimal)
-    -- There is a stock `parser` for double but not for float.
     <|> ValueFloat    <$> tok (signed double)
     <|> ValueBoolean  <$> bool
     -- TODO: Handle escape characters, unicode, etc