diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-06-13 07:20:19 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-06-13 07:20:19 +0200 |
| commit | 882276a845c33c06b235d9604cbfd5b55d784c7d (patch) | |
| tree | f6a4e9af38ae6772fa2ae49bb22e565996d1d06e /tests/Language/GraphQL/ExecuteSpec.hs | |
| parent | e8c54810f8978b29e136ac0e1d91db8545a3f5f5 (diff) | |
| download | graphql-882276a845c33c06b235d9604cbfd5b55d784c7d.tar.gz | |
Coerce result
Fixes #45.
Diffstat (limited to 'tests/Language/GraphQL/ExecuteSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/ExecuteSpec.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/Language/GraphQL/ExecuteSpec.hs b/tests/Language/GraphQL/ExecuteSpec.hs index 62c6f25..30568be 100644 --- a/tests/Language/GraphQL/ExecuteSpec.hs +++ b/tests/Language/GraphQL/ExecuteSpec.hs @@ -12,7 +12,7 @@ import Language.GraphQL.AST (Name) import Language.GraphQL.AST.Parser (document) import Language.GraphQL.Error import Language.GraphQL.Execute -import Language.GraphQL.Type +import Language.GraphQL.Type as Type import Language.GraphQL.Type.Out as Out import Test.Hspec (Spec, describe, it, shouldBe) import Text.Megaparsec (parse) @@ -25,7 +25,7 @@ queryType = Out.ObjectType "Query" Nothing [] $ HashMap.singleton "philosopher" $ Out.Resolver philosopherField $ pure - $ Object mempty + $ Type.Object mempty where philosopherField = Out.Field Nothing (Out.NonNullObjectType philosopherType) HashMap.empty @@ -38,8 +38,8 @@ philosopherType = Out.ObjectType "Philosopher" Nothing [] [ ("firstName", firstNameResolver) , ("lastName", lastNameResolver) ] - firstNameResolver = Out.Resolver firstNameField $ pure $ String "Friedrich" - lastNameResolver = Out.Resolver lastNameField $ pure $ String "Nietzsche" + firstNameResolver = Out.Resolver firstNameField $ pure $ Type.String "Friedrich" + lastNameResolver = Out.Resolver lastNameField $ pure $ Type.String "Nietzsche" firstNameField = Out.Field Nothing (Out.NonNullScalarType string) HashMap.empty lastNameField = Out.Field Nothing (Out.NonNullScalarType string) HashMap.empty |