WIP: remove debug

Author: qnikst

eras/babbage/impl/src/Cardano/Ledger/Babbage/TxOut.hs

@@ -126,8 +126,6 @@ import GHC.Stack (HasCallStack)
 import Lens.Micro (Lens', lens, to, (^.))
 import NoThunks.Class (NoThunks)
 
-import Debug.Trace (traceM)
-
 class (AlonzoEraTxOut era, AlonzoEraScript era) => BabbageEraTxOut era where
   referenceScriptTxOutL :: Lens' (TxOut era) (StrictMaybe (Script era))
 
@@ -508,9 +506,7 @@ instance (EraScript era, Val (Value era)) => ToCBOR (BabbageTxOut era) where
   {-# INLINE toCBOR #-}
 
 instance (EraScript era, Val (Value era)) => FromCBOR (BabbageTxOut era) where
-  fromCBOR = do
-    traceM "HERE fromCBOR BabbageTxOut"
-    fromEraCBOR @era
+  fromCBOR = fromEraCBOR @era
   {-# INLINE fromCBOR #-}
 
 instance (EraScript era, Val (Value era)) => EncCBOR (BabbageTxOut era) where
@@ -521,9 +517,7 @@ instance (EraScript era, Val (Value era)) => EncCBOR (BabbageTxOut era) where
     TxOutCompact addr cv -> encodeListLen 2 <> encCBOR addr <> encCBOR cv
 
 instance (EraScript era, Val (Value era)) => DecCBOR (BabbageTxOut era) where
-  decCBOR = do
-    traceM "HERE decCBOR BabbageTxOut"
-    decodeBabbageTxOut fromCborBothAddr
+  decCBOR = decodeBabbageTxOut fromCborBothAddr
   {-# INLINE decCBOR #-}
 
 instance
@@ -536,18 +530,11 @@ instance
   where
   type Share (BabbageTxOut era) = Interns (Credential 'Staking)
   decShareCBOR credsInterns = do
-    traceM "HERE decShareCBOR BabbageTxOut"
     txOut <-
       peekTokenType >>= \case
-        TypeBytes -> do
-          traceM "  TypeBytes"
-          decodeMemPack
-        TypeBytesIndef -> do
-          traceM "  TypeBytesIndef"
-          decodeMemPack
-        _ -> do
-          traceM "  Other"
-          decCBOR
+        TypeBytes -> decodeMemPack
+        TypeBytesIndef -> decodeMemPack
+        _ -> decCBOR
     pure $! internBabbageTxOut (interns credsInterns) txOut
   {-# INLINEABLE decShareCBOR #-}
 
@@ -571,7 +558,6 @@ decodeBabbageTxOut ::
   (forall s'. Decoder s' (Addr, CompactAddr)) ->
   Decoder s (BabbageTxOut era)
 decodeBabbageTxOut decAddr = do
-  traceM "  decodeBabbageTxOut"
   peekTokenType >>= \case
     TypeMapLenIndef -> decodeTxOut decAddr
     TypeMapLen -> decodeTxOut decAddr
@@ -633,9 +619,7 @@ decodeTxOut ::
   (forall s'. Decoder s' (Addr, CompactAddr)) ->
   Decoder s (BabbageTxOut era)
 decodeTxOut decAddr = do
-  traceM $ "  decodeTxOut "
   dtxo <- decode $ SparseKeyed "TxOut" initial bodyFields requiredFields
-  traceM $ "  ok "
   case dtxo of
     DecodingTxOut SNothing _ _ _ ->
       cborError $ DecoderErrorCustom "BabbageTxOut" "Impossible: no Addr"