From d88acf3d0e8f9b9d5345477b23e329cefec89b6f Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Fri, 18 Sep 2015 15:02:51 +0200 Subject: Refine numeric types --- Data/GraphQL/AST.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Data/GraphQL/AST.hs') 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 -- cgit v1.2.3