forked from OSS/graphql
24 lines
595 B
Haskell
24 lines
595 B
Haskell
module Data.GraphQL where
|
|
|
|
import Control.Applicative (Alternative)
|
|
|
|
import Data.Text (Text)
|
|
|
|
import qualified Data.Aeson as Aeson
|
|
import qualified Data.Attoparsec.Text as Attoparsec
|
|
|
|
import Data.GraphQL.Execute
|
|
import Data.GraphQL.Parser
|
|
import Data.GraphQL.Schema
|
|
|
|
import Data.GraphQL.Error
|
|
|
|
graphql :: (Alternative m, Monad m) => Schema m -> Text -> m Aeson.Value
|
|
graphql = flip graphqlSubs $ const Nothing
|
|
|
|
|
|
graphqlSubs :: (Alternative m, Monad m) => Schema m -> Subs -> Text -> m Aeson.Value
|
|
graphqlSubs schema f =
|
|
either parseError (execute schema f)
|
|
. Attoparsec.parseOnly document
|