wip

Author: zeme-wana

plutus-tx-plugin/plutus-tx-plugin.cabal

@@ -137,9 +137,6 @@ test-suite plutus-tx-plugin-tests
     BuiltinList.NoCasing.Spec
     ByteStringLiterals.Lib
     ByteStringLiterals.Spec
-    CallTrace.Lib
-    CallTrace.OtherModule
-    CallTrace.Spec
     DataList.Budget.Spec
     Inline.Spec
     IntegerLiterals.NoStrict.NegativeLiterals.Spec
@@ -185,6 +182,9 @@ test-suite plutus-tx-plugin-tests
     TH.TestTH
     Unicode.Spec
 
+  -- CallTrace.Lib
+  -- CallTrace.OtherModule
+  -- CallTrace.Spec
   build-depends:
     , base                             >=4.9   && <5
     , base16-bytestring

plutus-tx-plugin/src/PlutusTx/Plugin.hs

@@ -625,6 +625,7 @@ runCompiler moduleName opts expr = do
 
   -- (Simplified) Pir -> Plc translation.
   plcP <-
+    {-# SCC "plinth-spir2plc-step" #-}
     flip runReaderT pirCtx $
       modifyError (NoContext . PIRError) $
         PIR.compileReadableToPlc spirP

plutus-tx-plugin/test/Spec.hs

@@ -9,7 +9,8 @@ import BuiltinCasing.Spec qualified as BuiltinCasing
 import BuiltinList.Budget.Spec qualified as BuiltinList.Budget
 import BuiltinList.NoCasing.Spec qualified as BuiltinList.NoCasing
 import ByteStringLiterals.Spec qualified as ByteStringLiterals
-import CallTrace.Spec qualified as CallTrace
+
+-- import CallTrace.Spec qualified as CallTrace
 import DataList.Budget.Spec qualified as DataList.Budget
 import Inline.Spec qualified as Inline
 import IntegerLiterals.NoStrict.NegativeLiterals.Spec qualified