Fix typo in Pretty instance for WriteBalancedTxResponse (#465)

IntersectMBO · May 18, 2022 · 37c54aa · 37c54aa
1 parent e51f57f
commit 37c54aa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/plutus-contract/src/Plutus/Contract/Effects.hs b/plutus-contract/src/Plutus/Contract/Effects.hs
@@ -352,7 +352,7 @@ data WriteBalancedTxResponse =
 instance Pretty WriteBalancedTxResponse where
   pretty = \case
     WriteBalancedTxFailed e   -> "WriteBalancedTxFailed:" <+> pretty e
-    WriteBalancedTxSuccess tx -> "WriteBalancedTxFailed:" <+> pretty (getCardanoTxId tx)
+    WriteBalancedTxSuccess tx -> "WriteBalancedTxSuccess:" <+> pretty (getCardanoTxId tx)
 
 writeBalancedTxResponse :: Iso' WriteBalancedTxResponse (Either WalletAPIError CardanoTx)
 writeBalancedTxResponse = iso f g where