{-# LANGUAGE LambdaCase #-}

module Cardano.CLI.Types.Errors.DebugCmdError
  ( DebugCmdError (..)
  )
where

import           Cardano.Api

import           Cardano.CLI.Types.Errors.TxCmdError

data DebugCmdError
  = DebugCmdFailed
  | DebugTxCmdError !TxCmdError

instance Error DebugCmdError where
  prettyError :: forall ann. DebugCmdError -> Doc ann
prettyError = \case
    DebugCmdError
DebugCmdFailed -> Doc ann
"Debug command failed"
    DebugTxCmdError TxCmdError
err -> TxCmdError -> Doc ann
forall ann. TxCmdError -> Doc ann
renderTxCmdError TxCmdError
err