fix: trim syntax in messages
This commit is contained in:
parent
bafa4e0a78
commit
f9dcc9ca1b
1 changed files with 2 additions and 0 deletions
|
|
@ -103,6 +103,8 @@ def mkPPContext (nCtx : NamingContext) (ctx : MessageDataContext) : PPContext :=
|
|||
}
|
||||
|
||||
def ofSyntax (stx : Syntax) : MessageData :=
|
||||
-- discard leading/trailing whitespace
|
||||
let stx := stx.copyHeadTailInfoFrom .missing
|
||||
.ofPPFormat {
|
||||
pp := fun
|
||||
| some ctx => ppTerm ctx ⟨stx⟩ -- HACK: might not be a term
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue