summaryrefslogtreecommitdiff
path: root/src/Language/GraphQL/Error.hs
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2020-10-07 05:24:51 +0200
committerEugen Wissner <belka@caraus.de>2020-10-07 05:24:51 +0200
commit7c0b0ace4dacbb581669f88b83b9643a83fc797a (patch)
treeec9e5a55764c63203f09fc5c9b60990cd4b2aac7 /src/Language/GraphQL/Error.hs
parenta91bc7f2d218ea2df308d3968587b60351625150 (diff)
downloadgraphql-7c0b0ace4dacbb581669f88b83b9643a83fc797a.tar.gz
Collect types once the schema is created
Diffstat (limited to 'src/Language/GraphQL/Error.hs')
-rw-r--r--src/Language/GraphQL/Error.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Language/GraphQL/Error.hs b/src/Language/GraphQL/Error.hs
index 4992169..b084c78 100644
--- a/src/Language/GraphQL/Error.hs
+++ b/src/Language/GraphQL/Error.hs
@@ -5,8 +5,7 @@
-- | Error handling.
module Language.GraphQL.Error
- ( parseError
- , CollectErrsT
+ ( CollectErrsT
, Error(..)
, Path(..)
, Resolution(..)
@@ -15,6 +14,7 @@ module Language.GraphQL.Error
, ResponseEventStream
, addErr
, addErrMsg
+ , parseError
, runCollectErrs
, singleError
) where
@@ -29,7 +29,7 @@ import Data.Text (Text)
import qualified Data.Text as Text
import Language.GraphQL.AST (Location(..), Name)
import Language.GraphQL.Execute.Coerce
-import Language.GraphQL.Type.Schema
+import qualified Language.GraphQL.Type.Schema as Schema
import Prelude hiding (null)
import Text.Megaparsec
( ParseErrorBundle(..)
@@ -44,7 +44,7 @@ import Text.Megaparsec
-- | Executor context.
data Resolution m = Resolution
{ errors :: Seq Error
- , types :: HashMap Name (Type m)
+ , types :: HashMap Name (Schema.Type m)
}
-- | Wraps a parse error into a list of errors.
@@ -129,7 +129,7 @@ instance Exception ResolverException
-- | Runs the given query computation, but collects the errors into an error
-- list, which is then sent back with the data.
runCollectErrs :: (Monad m, Serialize a)
- => HashMap Name (Type m)
+ => HashMap Name (Schema.Type m)
-> CollectErrsT m a
-> m (Response a)
runCollectErrs types' res = do