parent
39f0fa670a
commit
742d053a97
1 changed files with 2 additions and 0 deletions
|
|
@ -74,6 +74,8 @@ where
|
|||
TaggedText.tag t (go subTt)
|
||||
|
||||
def ppExprTagged (e : Expr) (explicit : Bool := false) : MetaM CodeWithInfos := do
|
||||
if pp.raw.get (← getOptions) then
|
||||
return .text (toString e)
|
||||
let delab := open PrettyPrinter.Delaborator in
|
||||
if explicit then
|
||||
withOptionAtCurrPos pp.tagAppFns.name true do
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue