Adds IsString instance to Variable for easier REPL playing

This commit is contained in:
timmy_tofu 2015-09-25 19:12:22 -04:00
parent 0848e65da2
commit 85941139c1
1 changed files with 5 additions and 1 deletions

View File

@ -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