Skip to content

Commit 820b25b

Browse files
committed
chore: adaptation for leanprover/lean4#11357
1 parent c987918 commit 820b25b

File tree

2 files changed

+4
-3
lines changed

2 files changed

+4
-3
lines changed

ProofWidgets/Data/Html.lean

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -66,7 +66,7 @@ def jsxText : Parser :=
6666
withAntiquot (mkAntiquot "jsxText" `ProofWidgets.Jsx.jsxText) {
6767
fn := fun c s =>
6868
let startPos := s.pos
69-
let s := takeWhile1Fn (not ∘ jsxTextForbidden.contains) "expected JSX text" c s
69+
let s := takeWhile1Fn (not ∘ (fun c => jsxTextForbidden.contains c)) "expected JSX text" c s
7070
mkNodeToken `ProofWidgets.Jsx.jsxText startPos true c s }
7171

7272
def getJsxText : TSyntax ``jsxText → String
@@ -179,7 +179,7 @@ so we have to add the term annotations ourselves. -/
179179
partial def delabHtmlText : DelabM (TSyntax ``jsxText) := do
180180
let_expr Html.text e := ← getExpr | failure
181181
let .lit (.strVal s) := e | failure
182-
if s.any jsxTextForbidden.contains then
182+
if s.any (fun (c : Char) => jsxTextForbidden.contains c) then
183183
failure
184184
annotateTermLikeInfo <| mkNode ``jsxText #[mkAtom s]
185185

lean-toolchain

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1,2 @@
1-
leanprover/lean4:nightly-2025-11-23
1+
leanprover/lean4-pr-releases:pr-release-11357-ee5f4a9
2+

0 commit comments

Comments
 (0)