diff --git a/library/init/lean/trace.lean b/library/init/lean/trace.lean index d1966c9371..72208e683e 100644 --- a/library/init/lean/trace.lean +++ b/library/init/lean/trace.lean @@ -76,7 +76,7 @@ instance (m) [Monad m] : MonadTracer (TraceT m) := } } -unsafe def TraceT.run {m α} [Monad m] (opts : Options) (x : TraceT m α) : m (α × TraceMap) := +def TraceT.run {m α} [Monad m] (opts : Options) (x : TraceT m α) : m (α × TraceMap) := do (a, st) ← StateT.run x {opts := opts, roots := mkRBMap _ _ _, curPos := none, curTraces := []}, pure (a, st.roots)