diff options
Diffstat (limited to 'tests/Language/GraphQL/ExecuteSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/ExecuteSpec.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/Language/GraphQL/ExecuteSpec.hs b/tests/Language/GraphQL/ExecuteSpec.hs index 7b67824..e6dd8d9 100644 --- a/tests/Language/GraphQL/ExecuteSpec.hs +++ b/tests/Language/GraphQL/ExecuteSpec.hs @@ -25,11 +25,12 @@ import Test.Hspec (Spec, context, describe, it, shouldBe) import Text.Megaparsec (parse) import Text.RawString.QQ (r) -schema :: Schema (Either SomeException) -schema = Schema +philosopherSchema :: Schema (Either SomeException) +philosopherSchema = Schema { query = queryType , mutation = Nothing , subscription = Just subscriptionType + , directives = HashMap.empty } queryType :: Out.ObjectType (Either SomeException) @@ -79,7 +80,8 @@ type EitherStreamOrValue = Either (Response Aeson.Value) execute' :: Document -> Either SomeException EitherStreamOrValue -execute' = execute schema Nothing (mempty :: HashMap Name Aeson.Value) +execute' = + execute philosopherSchema Nothing (mempty :: HashMap Name Aeson.Value) spec :: Spec spec = |