{-# LANGUAGE OverloadedStrings #-}
module Data.Morpheus.Error.Internal
( internalTypeMismatch
, internalArgumentError
, internalUnknownTypeMessage
) where
import Data.Morpheus.Error.Utils (errorMessage)
import Data.Morpheus.Types.Error (GQLErrors)
import Data.Morpheus.Types.JSType (JSType (..))
import Data.Text (Text)
import qualified Data.Text as T (concat, pack)
internalError :: Text -> Either GQLErrors b
internalError x = Left $ errorMessage 0 $ T.concat ["INTERNAL ERROR: ", x]
internalUnknownTypeMessage :: Text -> GQLErrors
internalUnknownTypeMessage x = errorMessage 0 $ T.concat ["type did not not found, but was defined by Schema", x]
internalArgumentError :: Text -> Either GQLErrors b
internalArgumentError x = internalError $ T.concat ["Argument ", x]
internalTypeMismatch :: Text -> JSType -> Either GQLErrors b
internalTypeMismatch text jsType = internalError $ T.concat ["Type mismatch ", text, T.pack $ show jsType]