diff --git a/graphql.cabal b/graphql.cabal index 9054347..f72a913 100644 --- a/graphql.cabal +++ b/graphql.cabal @@ -47,7 +47,6 @@ library Language.GraphQL.Validate.Validation Test.Hspec.GraphQL other-modules: - Language.GraphQL.Execute.Internal Language.GraphQL.Execute.Transform Language.GraphQL.Type.Definition Language.GraphQL.Type.Internal diff --git a/src/Language/GraphQL/Execute/Internal.hs b/src/Language/GraphQL/Execute/Internal.hs deleted file mode 100644 index 046db45..0000000 --- a/src/Language/GraphQL/Execute/Internal.hs +++ /dev/null @@ -1,31 +0,0 @@ -{- This Source Code Form is subject to the terms of the Mozilla Public License, - v. 2.0. If a copy of the MPL was not distributed with this file, You can - obtain one at https://mozilla.org/MPL/2.0/. -} - -{-# LANGUAGE DuplicateRecordFields #-} -{-# LANGUAGE ExplicitForAll #-} -{-# LANGUAGE NamedFieldPuns #-} - -module Language.GraphQL.Execute.Internal - ( addError - , singleError - ) where - -import Control.Monad.Trans.State (modify) -import Control.Monad.Catch (MonadCatch) -import Data.Sequence ((|>)) -import qualified Data.Text as Text -import qualified Language.GraphQL.AST as Full -import Language.GraphQL.Error (CollectErrsT, Error(..), Resolution(..)) -import Prelude hiding (null) - -addError :: MonadCatch m => forall a. a -> Error -> CollectErrsT m a -addError returnValue error' = modify appender >> pure returnValue - where - appender :: Resolution m -> Resolution m - appender resolution@Resolution{ errors } = resolution - { errors = errors |> error' - } - -singleError :: [Full.Location] -> String -> Error -singleError errorLocations message = Error (Text.pack message) errorLocations []