17 lines
449 B
Haskell
17 lines
449 B
Haskell
module Data.GraphQL where
|
|
|
|
import Control.Applicative (Alternative, empty)
|
|
|
|
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
|
|
|
|
graphql :: (Alternative m, Monad m) => Schema m -> Text -> m Aeson.Value
|
|
graphql schema = either (const empty) (execute schema)
|
|
. Attoparsec.parseOnly document
|