From 0848e65da2be6a461f10bece76c1bdabcb585082 Mon Sep 17 00:00:00 2001 From: timmy_tofu Date: Fri, 25 Sep 2015 19:11:42 -0400 Subject: [PATCH 1/2] Adds dist/ dir and cabal sandbox dir and file to gitignore --- .gitignore | 3 +++ 1 file changed, 3 insertions(+) diff --git a/.gitignore b/.gitignore index 3a5b475..02fa8db 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,4 @@ .stack-work/ +.cabal-sandbox/ +cabal.sandbox.config +dist/ From 85941139c19348de2876f9376bb886d0ebd2eb50 Mon Sep 17 00:00:00 2001 From: timmy_tofu Date: Fri, 25 Sep 2015 19:12:22 -0400 Subject: [PATCH 2/2] Adds IsString instance to Variable for easier REPL playing --- Data/GraphQL/AST.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Data/GraphQL/AST.hs b/Data/GraphQL/AST.hs index cc631e6..4140c9c 100644 --- a/Data/GraphQL/AST.hs +++ b/Data/GraphQL/AST.hs @@ -1,7 +1,8 @@ module Data.GraphQL.AST where import Data.Int (Int32) -import Data.Text (Text) +import Data.Text (Text, pack) +import Data.String -- * Name @@ -28,6 +29,9 @@ data VariableDefinition = VariableDefinition Variable Type (Maybe DefaultValue) newtype Variable = Variable Name deriving (Eq,Show) +instance IsString Variable where + fromString = Variable . pack + type SelectionSet = [Selection] data Selection = SelectionField Field