Initial stub for a GraphQL and execute

This commit is contained in:
Danny Navarro
2015-10-17 13:19:00 +02:00
parent c8f629e826
commit 8e3bae4b5c
4 changed files with 71 additions and 2 deletions

14
Data/GraphQL/Execute.hs Normal file
View File

@ -0,0 +1,14 @@
{-# LANGUAGE CPP #-}
module Data.GraphQL.Execute where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative (Applicative)
#endif
import qualified Data.Aeson as Aeson (Value)
import Data.GraphQL.AST
import Data.GraphQL.Schema
execute :: Applicative f => Schema -> Document -> f Aeson.Value
execute = undefined