1 files changed, 4 insertions, 0 deletions
diff --git a/Data/GraphQL/AST/Core.hs b/Data/GraphQL/AST/Core.hs
index 3424d20..f0c617c 100644
--- a/Data/GraphQL/AST/Core.hs
+++ b/Data/GraphQL/AST/Core.hs
@@ -3,6 +3,7 @@ module Data.GraphQL.AST.Core where
 
 import Data.Int (Int32)
 import Data.List.NonEmpty (NonEmpty)
+import Data.String
 
 import Data.Text (Text)
 
@@ -31,4 +32,7 @@ data Value = ValueInt Int32
            | ValueObject [ObjectField]
              deriving (Eq,Show)
 
+instance IsString Value where
+  fromString = ValueString . fromString
+
 data ObjectField = ObjectField Name Value deriving (Eq,Show)