Explicit ToJSON instance for TxSubmitWebApiError

IntersectMBO · Jan 12, 2024 · b070859 · b070859
1 parent b5438be
commit b070859
Showing 1 changed file with 20 additions and 1 deletion.
diff --git a/cardano-submit-api/src/Cardano/TxSubmit/Types.hs b/cardano-submit-api/src/Cardano/TxSubmit/Types.hs
@@ -58,7 +58,26 @@ data TxSubmitWebApiError
 
 deriving instance Generic TxSubmitWebApiError
 
-deriving anyclass instance ToJSON TxSubmitWebApiError
+instance ToJSON TxSubmitWebApiError where
+  toJSON = \case
+    TxSubmitDecodeHex -> Aeson.object
+      [ "tag" .= String "TxSubmitDecodeHex"
+      ]
+    TxSubmitEmpty -> Aeson.object
+      [ "tag" .= String "TxSubmitEmpty"
+      ]
+    TxSubmitDecodeFail err -> Aeson.object
+      [ "tag" .= String "TxSubmitDecodeFail"
+      , "contents" .= toJSON err
+      ]
+    TxSubmitBadTx err -> Aeson.object
+      [ "tag" .= String "TxSubmitBadTx"
+      , "contents" .= toJSON err
+      ]
+    TxSubmitFail err -> Aeson.object
+      [ "tag" .= String "TxSubmitFail"
+      , "contents" .= toJSON err
+      ]
 
 newtype EnvSocketError = CliEnvVarLookup Text
   deriving (Eq, Generic, Show)