fix: source links for Lake
parent
dc9549e2e6
commit
0b52010291
|
@ -86,6 +86,8 @@ def sourceLinker (ws : Lake.Workspace) : IO (Name → Option DeclarationRange
|
||||||
let root := module.getRoot
|
let root := module.getRoot
|
||||||
let basic := if root == `Lean ∨ root == `Init then
|
let basic := if root == `Lean ∨ root == `Init then
|
||||||
s!"https://github.com/leanprover/lean4/blob/{leanHash}/src/{path}.lean"
|
s!"https://github.com/leanprover/lean4/blob/{leanHash}/src/{path}.lean"
|
||||||
|
else if root == `Lake then
|
||||||
|
s!"https://github.com/leanprover/lean4/blob/{leanHash}/src/lake/{path}.lean"
|
||||||
else
|
else
|
||||||
match ws.packageArray.find? (·.isLocalModule module) with
|
match ws.packageArray.find? (·.isLocalModule module) with
|
||||||
| some pkg =>
|
| some pkg =>
|
||||||
|
|
Loading…
Reference in New Issue