graphql/Data/GraphQL/Execute.hs

39 lines
1.6 KiB
Haskell
Raw Normal View History

2017-02-10 22:40:08 +01:00
{-# LANGUAGE OverloadedStrings #-}
-- | This module provides the function to execute a @GraphQL@ request --
-- according to a 'Schema'.
2016-02-17 13:13:01 +01:00
module Data.GraphQL.Execute (execute) where
2019-06-28 11:12:28 +02:00
import Control.Monad (MonadPlus(..))
2019-06-27 08:00:59 +02:00
import Data.GraphQL.Error
import qualified Data.List.NonEmpty as NE
import Data.List.NonEmpty (NonEmpty((:|)))
import qualified Data.Aeson as Aeson
import qualified Data.GraphQL.AST as AST
import qualified Data.GraphQL.AST.Core as AST.Core
import qualified Data.GraphQL.AST.Transform as Transform
import Data.GraphQL.Schema (Schema)
import qualified Data.GraphQL.Schema as Schema
-- | Takes a 'Schema', a variable substitution function ('Schema.Subs'), and a
-- @GraphQL@ 'document'. The substitution is applied to the document using
-- 'rootFields', and the 'Schema''s resolvers are applied to the resulting fields.
--
-- Returns the result of the query against the 'Schema' wrapped in a /data/ field, or
-- errors wrapped in an /errors/ field.
execute
2019-06-28 11:12:28 +02:00
:: (MonadPlus m)
=> Schema m -> Schema.Subs -> AST.Document -> m Aeson.Value
execute schema subs doc = do
coreDocument <- maybe mzero pure (Transform.document subs doc)
document schema coreDocument
2019-06-28 11:12:28 +02:00
document :: MonadPlus m => Schema m -> AST.Core.Document -> m Aeson.Value
document schema (op :| []) = operation schema op
document _ _ = error "Multiple operations not supported yet"
2019-06-28 11:12:28 +02:00
operation :: MonadPlus m => Schema m -> AST.Core.Operation -> m Aeson.Value
2019-06-23 05:38:45 +02:00
operation schema (AST.Core.Query flds)
2019-06-27 08:00:59 +02:00
= runCollectErrs (Schema.resolve (NE.toList schema) (NE.toList flds))
2019-06-23 05:38:45 +02:00
operation schema (AST.Core.Mutation flds)
2019-06-27 08:00:59 +02:00
= runCollectErrs (Schema.resolve (NE.toList schema) (NE.toList flds))