higherkindness/mu-haskell
1
1
Fork 0
mirror of https://github.com/higherkindness/mu-haskell.git synced 2024-08-16 18:00:33 +03:00
Code Issues Projects Releases Wiki Activity

Run the entire pipeline!

Browse Source
This commit is contained in:
Alejandro Serrano 2020-03-05 14:31:29 +01:00
parent 233d9140a0
commit 91bb7856e7
No known key found for this signature in database
GPG Key ID: A04B82DC1AD554C3
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
graphql/src/Mu/GraphQL/Query/Run.hs
View File

@ -3,6 +3,7 @@
{-# language FlexibleInstances #-}
{-# language GADTs #-}
{-# language MultiParamTypeClasses #-}
{-# language OverloadedLists #-}
{-# language OverloadedStrings #-}
{-# language PolyKinds #-}
{-# language ScopedTypeVariables #-}
@ -11,11 +12,16 @@
{-# language TypeOperators #-}
{-# language UndecidableInstances #-}
{-# OPTIONS_GHC -fprint-explicit-foralls #-}
module Mu.GraphQL.Query.Run where
module Mu.GraphQL.Query.Run (
runPipeline
, runDocument
, runQuery
) where
import Control.Monad.Except (runExceptT)
import Control.Monad.Writer
import qualified Data.Aeson as Aeson
import qualified Data.Aeson.Types as Aeson
import Data.Functor.Identity
import Data.Maybe
import qualified Data.Text as T
@ -48,10 +54,23 @@ runPipeline
-> IO Aeson.Value
runPipeline svr _ _ doc
= case parseDoc doc of
Nothing -> undefined
Nothing ->
return $
Aeson.object [
("errors", Aeson.Array [
Aeson.object [ ("message", Aeson.String "cannot parse document") ] ])]
Just (d :: Document p qr mut) -> do
(data_, errors) <- runWriterT (runDocument svr d)
return $ Aeson.object [ ("data", data_) ]
case errors of
[] -> return $ Aeson.object [ ("data", data_) ]
_ -> return $ Aeson.object [ ("data", data_), ("errors", Aeson.listValue errValue errors) ]
where
errValue :: GraphQLError -> Aeson.Value
errValue (GraphQLError (ServerError _ msg) path)
= Aeson.object [
("message", Aeson.String $ T.pack msg)
, ("path", Aeson.toJSON path)
]
runDocument