View on GitHub
File Changes
    case JSON.parseEither parseUnbalancedTxKey (hooks response) of
        Left err -> throwError $ ContractCommandError 0 $ Text.pack err
        Right unbalancedTxs -> do
-
            logInfoN $ "Balancing unbalanced TXs" <> tshow unbalancedTxs
+
            logInfoN $ "Balancing unbalanced TXs: " <> tshow unbalancedTxs
            balancedTxs :: [Ledger.Tx] <-
                traverse
                    (mapError WalletError . Wallet.balanceWallet)