chore: add MessageData.nestD
"default nest"
This commit is contained in:
parent
99161538f8
commit
5349a73655
1 changed files with 4 additions and 1 deletions
|
|
@ -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
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue