prescientmoon/graphql
1
0
Fork 0
forked from OSS/graphql
Code Pull Requests Activity

Rewrite selections into a Sequence. Fix #21

Browse Source
This commit is contained in:
Eugen Wissner
2019-11-16 11:41:40 +01:00
parent 115aa02672
commit 7b92e5bcfd
5 changed files with 27 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Language/GraphQL/Schema.hs
View File

@ -28,6 +28,7 @@ import Data.Maybe (fromMaybe)
import qualified Data.Aeson as Aeson
import Data.HashMap.Strict (HashMap)
import qualified Data.HashMap.Strict as HashMap
import Data.Sequence (Seq)
import Data.Text (Text)
import qualified Data.Text as T
import Language.GraphQL.AST.Core
@ -118,7 +119,7 @@ withField v fld
-- 'Resolver' to each 'Field'. Resolves into a value containing the
-- resolved 'Field', or a null value and error information.
resolve :: MonadIO m
=> [Resolver m] -> [Selection] -> CollectErrsT m Aeson.Value
=> [Resolver m] -> Seq Selection -> CollectErrsT m Aeson.Value
resolve resolvers = fmap (Aeson.toJSON . fold) . traverse tryResolvers
where
resolveTypeName (Resolver "__typename" f) = do