fix: explicit structure for PPExprTaggedRequest
This commit is contained in:
parent
69facfbe8e
commit
fd66e70d1e
1 changed files with 7 additions and 2 deletions
|
|
@ -17,12 +17,17 @@ import Lean.Server.FileWorker.RequestHandling
|
|||
namespace Lean.Widget
|
||||
open Server
|
||||
|
||||
structure PPExprTaggedRequest where
|
||||
expr : WithRpcRef ExprWithCtx
|
||||
explicit : Bool
|
||||
deriving Inhabited, RpcEncoding
|
||||
|
||||
builtin_initialize
|
||||
registerBuiltinRpcProcedure
|
||||
`Lean.Widget.ppExprTagged
|
||||
(WithRpcRef ExprWithCtx × Bool)
|
||||
PPExprTaggedRequest
|
||||
CodeWithInfos
|
||||
fun (⟨ctx, lctx, expr⟩, explicit) => RequestM.asTask do
|
||||
fun ⟨⟨ctx, lctx, expr⟩, explicit⟩ => RequestM.asTask do
|
||||
ctx.runMetaM lctx do
|
||||
ppExprTagged expr explicit
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue