diff --git a/src/Lean/Message.lean b/src/Lean/Message.lean index 6044d109bc..77919f77d9 100644 --- a/src/Lean/Message.lean +++ b/src/Lean/Message.lean @@ -180,8 +180,11 @@ def toList (log : MessageLog) : List Message := end MessageLog +def MessageData.nestD (msg : MessageData) : MessageData := +MessageData.nest 2 msg + def indentExpr (msg : MessageData) : MessageData := -MessageData.nest 2 (Format.line ++ msg) +MessageData.nestD (Format.line ++ msg) namespace KernelException