{-# LANGUAGE NoImplicitPrelude #-}

module Data.Morpheus.Error.Utils
  ( errorMessage,
    globalErrorMessage,
  )
where

import Data.Morpheus.Types.Internal.AST.Base
  ( Position (..),
  )
import Data.Morpheus.Types.Internal.AST.Error
  ( GQLError,
    Message,
    at,
    msg,
  )

{-# DEPRECATED errorMessage "\"my error\" `at` position" #-}
errorMessage :: Position -> Message -> [GQLError]
errorMessage :: Position -> Message -> [GQLError]
errorMessage Position
position Message
message = [Message -> GQLError
forall a. Msg a => a -> GQLError
msg Message
message GQLError -> Position -> GQLError
`at` Position
position]

{-# DEPRECATED globalErrorMessage "use validation errors" #-}
globalErrorMessage :: Message -> [GQLError]
globalErrorMessage :: Message -> [GQLError]
globalErrorMessage Message
message = [Message -> GQLError
forall a. Msg a => a -> GQLError
msg Message
message]