-- Generated by scripts/generate.mjs. Do not edit.
module Dagger.Error
  ( id
  , message
  , values
  , withValue
  ) where

import Effect.Aff (Aff)
import Dagger.Internal.Runtime as R
import Dagger.Types as T

-- | A unique identifier for this Error.
id :: T.Error -> Aff T.ID
id = R.scalar "id" []

-- | A description of the error.
message :: T.Error -> Aff String
message = R.scalar "message" []

-- | The extensions of the error.
values :: T.Error -> Aff (Array T.ErrorValue)
values = R.objectList "ErrorValue" "values" []

-- | Add a value to the error.
withValue :: String -> T.JSON -> T.Error -> T.Error
withValue argName argValue = R.select "withValue" [R.argument "name" "String!" argName, R.argument "value" "JSON!" argValue]