Merge pull request #393 from input-output-hk/newhoggy/new-ToJSON-inst…

…ance-for-TxValidationErrorInCardanoMode New `ToJSON` instance for `TxValidationErrorInCardanoMode`
IntersectMBO · Dec 4, 2023 · 7e90e50 · 7e90e50
2 parents a29d94d + fcc6988
commit 7e90e50
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/InMode.hs b/cardano-api/internal/Cardano/Api/InMode.hs
@@ -33,6 +33,7 @@ import           Cardano.Api.Modes
 import           Cardano.Api.Orphans ()
 import           Cardano.Api.Tx
 import           Cardano.Api.TxBody
+import           Cardano.Api.Utils (textShow)
 
 import qualified Cardano.Ledger.Api as L
 import qualified Ouroboros.Consensus.Byron.Ledger as Consensus
@@ -279,6 +280,18 @@ data TxValidationErrorInCardanoMode where
 
 deriving instance Show TxValidationErrorInCardanoMode
 
+instance ToJSON TxValidationErrorInCardanoMode where
+  toJSON = \case
+    TxValidationErrorInCardanoMode err ->
+      Aeson.object
+        [ "tag" .= Aeson.String "TxValidationErrorInCardanoMode"
+        , "contents" .= toJSON err
+        ]
+    TxValidationEraMismatch err ->
+      Aeson.object
+        [ "tag" .= Aeson.String "TxValidationEraMismatch"
+        , "contents" .= toJSON (textShow err)
+        ]
 
 fromConsensusApplyTxErr :: ()
   => Consensus.CardanoBlock L.StandardCrypto ~ block