Refine numeric types

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

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