Refine numeric types

2015-09-18 15:02:51 +02:00
parent c9c1137ceb
commit d88acf3d0e
2 changed files with 3 additions and 2 deletions
--- 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