Validate fragment spread target existence

2020-08-31 11:06:27 +02:00
parent 4b59da2fcb
commit 33318a3b01
10 changed files with 109 additions and 23 deletions
--- a/src/Language/GraphQL/Execute/Transform.hs
+++ b/src/Language/GraphQL/Execute/Transform.hs
@ -299,7 +299,7 @@ selection (Full.Field alias name arguments' directives' selections) =
    go arguments (Full.Argument name' value') =
        inputField arguments name' value'

-selection (Full.FragmentSpread name directives') =
+selection (Full.FragmentSpread name directives' _) =
    maybe (Left mempty) (Right . SelectionFragment) <$> do
        spreadDirectives <- Definition.selection <$> directives directives'
        fragments' <- gets fragments