Refine numeric types

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