diff --git a/examples/website-examples/lake-manifest.json b/examples/website-examples/lake-manifest.json index f3005f8..ce4c650 100644 --- a/examples/website-examples/lake-manifest.json +++ b/examples/website-examples/lake-manifest.json @@ -4,7 +4,7 @@ [{"url": "https://github.com/leanprover/subverso.git", "type": "git", "subDir": null, - "rev": "1c1514540a039a18b12feb738ddf2ac5a5fda45c", + "rev": "6e2fe670be67ad4e31c7b0ad0fe7141e59bd1d29", "name": "subverso", "manifestFile": "lake-manifest.json", "inputRev": "main", diff --git a/lake-manifest.json b/lake-manifest.json index 9998c49..2104aae 100644 --- a/lake-manifest.json +++ b/lake-manifest.json @@ -15,7 +15,7 @@ "type": "git", "subDir": null, "scope": "", - "rev": "1c1514540a039a18b12feb738ddf2ac5a5fda45c", + "rev": "6e2fe670be67ad4e31c7b0ad0fe7141e59bd1d29", "name": "subverso", "manifestFile": "lake-manifest.json", "inputRev": "main", diff --git a/src/verso/Verso/Doc/Concrete.lean b/src/verso/Verso/Doc/Concrete.lean index 78f6926..e7542e0 100644 --- a/src/verso/Verso/Doc/Concrete.lean +++ b/src/verso/Verso/Doc/Concrete.lean @@ -127,9 +127,9 @@ elab "#docs" "(" genre:term ")" n:ident title:inlineStr ":=" ":::::::" text:docu elabCommand (← `(def $n : Part $genre := $(← finished.toSyntax genre st'.linkDefs st'.footnoteDefs))) -elab "#doc" "(" genre:term ")" title:inlineStr "=>" text:completeDocument eof:eoi : term => open Lean Elab Term PartElabM DocElabM in do +elab "#doc" "(" genre:term ")" title:inlineStr "=>" text:completeDocument eoi : term => open Lean Elab Term PartElabM DocElabM in do findGenreTm genre - let endPos := eof.raw.getTailPos?.get! + let endPos := (← getFileMap).source.endPos let .node _ _ blocks := text.raw | dbg_trace "nope {ppSyntax text.raw}" throwUnsupportedSyntax let ⟨`⟩ := title