hide traces

IntersectMBO · Sep 26, 2023 · 60447b4 · 60447b4
1 parent 89324bd
commit 60447b4
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 4 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Fees.hs b/cardano-api/internal/Cardano/Api/Fees.hs
@@ -1048,7 +1048,8 @@ makeTransactionBodyAutoBalance systemstart history lpp@(LedgerProtocolParameters
                           -- that simply creates a transaction body because we have already
                           -- validated the transaction body earlier within makeTransactionBodyAutoBalance
         createAndValidateTransactionBody finalTxBodyContent
-    trace ">>>> F1048" $ trace (T.unpack $ pShow txbody3) $ return (BalancedTxBody finalTxBodyContent txbody3 (TxOut changeaddr balance TxOutDatumNone ReferenceScriptNone) fee)
+    -- trace ">>>> F1048" $ trace (T.unpack $ pShow txbody3) $ 
+    return (BalancedTxBody finalTxBodyContent txbody3 (TxOut changeaddr balance TxOutDatumNone ReferenceScriptNone) fee)
  where
    -- Essentially we check for the existence of collateral inputs. If they exist we
    -- create a fictitious collateral return output. Why? Because we need to put dummy values

diff --git a/cardano-api/internal/Cardano/Api/Tx.hs b/cardano-api/internal/Cardano/Api/Tx.hs
@@ -664,7 +664,8 @@ makeShelleyBasedBootstrapWitness :: forall era.
 makeShelleyBasedBootstrapWitness sbe nwOrAddr txbody (ByronSigningKey sk) =
     ShelleyBootstrapWitness sbe $
       -- Byron era witnesses were weird. This reveals all that weirdness.
-      trace "API 665" $ traceShowId $ Shelley.BootstrapWitness {
+      -- trace "API 665" $ traceShowId $
+      Shelley.BootstrapWitness {
         Shelley.bwKey        = vk,
         Shelley.bwSig        = signature,
         Shelley.bwChainCode  = chainCode,

diff --git a/cardano-api/internal/Cardano/Api/TxBody.hs b/cardano-api/internal/Cardano/Api/TxBody.hs
@@ -3884,7 +3884,9 @@ makeShelleyTransactionBody sbe@ShelleyBasedEraBabbage
         txScriptValidity
   where
     witnesses :: [(ScriptWitnessIndex, AnyScriptWitness BabbageEra)]
-    witnesses = collectTxBodyScriptWitnesses sbe $ trace ">>>> TXB 3886" $ traceWith (T.unpack . pShow) txbodycontent
+    witnesses = collectTxBodyScriptWitnesses sbe $
+      -- trace ">>>> TXB 3886" $ traceWith (T.unpack . pShow)
+      txbodycontent
 
     scripts :: [Ledger.Script StandardBabbage]
     scripts = List.nub $ catMaybes
@@ -3912,7 +3914,8 @@ makeShelleyTransactionBody sbe@ShelleyBasedEraBabbage
 
     redeemers :: Alonzo.Redeemers StandardBabbage
     redeemers =
-      trace "WITT" $ traceWith (T.unpack . pShow ) $ Alonzo.Redeemers $
+      -- trace "WITT" $ traceWith (T.unpack . pShow ) $
+      Alonzo.Redeemers $
         Map.fromList
           [ (toAlonzoRdmrPtr idx, (toAlonzoData d, toAlonzoExUnits e))
           | (idx, AnyScriptWitness