Add correct cost center heading

Replace OrElse*Frame headings by BranchFrame headings.
input-output-hk · Aug 2, 2022 · abc4bff · abc4bff
1 parent 2126b8b
commit abc4bff
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/io-sim/src/Control/Monad/IOSim/Internal.hs b/io-sim/src/Control/Monad/IOSim/Internal.hs
@@ -911,15 +911,15 @@ execAtomically !time !tid !tlbl !nextVid0 action0 k0 =
           k0 $! StmTxBlocked $! (Map.elems read)
 
         BranchFrame (OrElseStmA b) k writtenOuter writtenOuterSeq createdOuterSeq ctl' ->
-          {-# SCC "execAtomically.go.OrElseLeftFrame" #-} do
+          {-# SCC "execAtomically.go.BranchFrame" #-} do
           -- Revert all the TVar writes within this orElse
           !_ <- traverse_ (\(SomeTVar tvar) -> revertTVar tvar) written
           -- Execute the orElse right hand with an empty written set
           let ctl'' = BranchFrame EmptyStmA k writtenOuter writtenOuterSeq createdOuterSeq ctl'
           go ctl'' read Map.empty [] [] nextVid b
 
         BranchFrame _ _k writtenOuter writtenOuterSeq createdOuterSeq ctl' ->
-          {-# SCC "execAtomically.go.OrElseRightFrame" #-} do
+          {-# SCC "execAtomically.go.BranchFrame" #-} do
           -- Revert all the TVar writes within this orElse branch
           !_ <- traverse_ (\(SomeTVar tvar) -> revertTVar tvar) written
           -- Skip the continuation and propagate the retry into the outer frame

diff --git a/io-sim/src/Control/Monad/IOSimPOR/Internal.hs b/io-sim/src/Control/Monad/IOSimPOR/Internal.hs
@@ -1122,15 +1122,15 @@ execAtomically time tid tlbl nextVid0 action0 k0 =
           k0 $! StmTxBlocked $! Map.elems read
 
         BranchFrame (OrElseStmA b) k writtenOuter writtenOuterSeq createdOuterSeq ctl' ->
-          {-# SCC "execAtomically.go.OrElseLeftFrame" #-} do
+          {-# SCC "execAtomically.go.BranchFrame" #-} do
           -- Revert all the TVar writes within this orElse
           !_ <- traverse_ (\(SomeTVar tvar) -> revertTVar tvar) written
           -- Execute the orElse right hand with an empty written set
           let ctl'' = BranchFrame EmptyStmA  k writtenOuter writtenOuterSeq createdOuterSeq ctl'
           go ctl'' read Map.empty [] [] nextVid b
 
         BranchFrame _ _k writtenOuter writtenOuterSeq createdOuterSeq ctl' ->
-          {-# SCC "execAtomically.go.OrElseRightFrame" #-} do
+          {-# SCC "execAtomically.go.BranchFrame" #-} do
           -- Revert all the TVar writes within this orElse branch
           !_ <- traverse_ (\(SomeTVar tvar) -> revertTVar tvar) written
           -- Skip the continuation and propagate the retry into the outer frame