From df8e43c9aa922ff8f3ce1bf560c4286012486907 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Tue, 9 Feb 2016 13:31:28 +0100 Subject: Handle Output enumerations in Schema definition The third end-to-end test from graphql-js was implemented. --- Data/GraphQL/Execute.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Data/GraphQL/Execute.hs') diff --git a/Data/GraphQL/Execute.hs b/Data/GraphQL/Execute.hs index df6b506..0586a2e 100644 --- a/Data/GraphQL/Execute.hs +++ b/Data/GraphQL/Execute.hs @@ -33,6 +33,9 @@ selection _ _ = error "selection: Not implemented yet" output :: (Alternative f, Monad f) => SelectionSet -> Output f -> f Aeson.Value output sels (OutputResolver resolv) = selectionSet resolv sels output sels (OutputList os) = fmap array . traverse (output sels) =<< os +output sels (OutputEnum e) + | null sels = Aeson.toJSON <$> e + | otherwise = empty output sels (OutputScalar s) | null sels = Aeson.toJSON <$> s | otherwise = empty -- cgit v1.2.3