From 5e4b30c777b80c4ffec0fc55febb4fdee4da865d Mon Sep 17 00:00:00 2001
From: Gabriel Ebner <gebner@gebner.org>
Date: Sun, 7 Aug 2022 17:35:17 +0200
Subject: [PATCH] chore: remove traceCtx

---
 src/Lean/Util/Trace.lean | 17 -----------------
 1 file changed, 17 deletions(-)

diff --git a/src/Lean/Util/Trace.lean b/src/Lean/Util/Trace.lean
index 32e463cebb..a75b827fa6 100644
--- a/src/Lean/Util/Trace.lean
+++ b/src/Lean/Util/Trace.lean
@@ -65,14 +65,6 @@ def isTracingEnabledFor (cls : Name) : m Bool := do
 @[inline] def setTraceState (s : TraceState) : m Unit :=
   modifyTraceState fun _ => s
 
-private def addNode (oldTraces : PersistentArray TraceElem) (cls : Name) (ref : Syntax) : m Unit :=
-  modifyTraces fun traces =>
-    if traces.isEmpty then
-      oldTraces
-    else
-      let d := .trace cls "" (traces.toArray.map fun elem => elem.msg) (collapsed := true)
-      oldTraces.push { ref := ref, msg := d }
-
 private def getResetTraces : m (PersistentArray TraceElem) := do
   let oldTraces ← getTraces
   modifyTraces fun _ => {}
@@ -100,15 +92,6 @@ def addTrace (cls : Name) (msg : MessageData) : m Unit := do
     let msg ← mkMsg
     addTrace cls msg
 
-@[inline] def traceCtx [MonadFinally m] (cls : Name) (ctx : m α) : m α := do
-  let b ← isTracingEnabledFor cls
-  if !b then
-    ctx
-  else
-    let ref ← getRef
-    let oldCurrTraces ← getResetTraces
-    try ctx finally addNode oldCurrTraces cls ref
-
 private def addTraceNode (oldTraces : PersistentArray TraceElem)
     (cls : Name) (ref : Syntax) (msg : MessageData) (collapsed : Bool) : m Unit :=
   withRef ref do