diff --git a/src/Cardano/CEM/OnChain.hs b/src/Cardano/CEM/OnChain.hs index ac3d7da..44ef329 100644 --- a/src/Cardano/CEM/OnChain.hs +++ b/src/Cardano/CEM/OnChain.hs @@ -141,8 +141,9 @@ genericCEMScript script scriptStage = && let expectedInterval = always - -- stageToOnChainInterval' stageParams (traceError "TODO") in + -- stageToOnChainInterval' stageParams (traceError "TODO") + traceIfFalse "Wrong interval for transition stage" $ expectedInterval `contains` txInfoValidRange info