chore: Don't hard code the path seps in the build dir

main
Henrik Böving 2022-02-19 18:15:43 +01:00
parent bd9ab34655
commit d0714c3aab
1 changed files with 1 additions and 1 deletions

View File

@ -63,7 +63,7 @@ def sourceLinker : IO (Name → Option DeclarationRange → String) := do
def htmlOutput (result : AnalyzerResult) (root : String) : IO Unit := do def htmlOutput (result : AnalyzerResult) (root : String) : IO Unit := do
let config := { root := root, result := result, currentName := none, sourceLinker := ←sourceLinker} let config := { root := root, result := result, currentName := none, sourceLinker := ←sourceLinker}
let basePath := FilePath.mk "./build/doc/" let basePath := FilePath.mk "." / "build" / "doc"
let indexHtml := ReaderT.run index config let indexHtml := ReaderT.run index config
let notFoundHtml := ReaderT.run notFound config let notFoundHtml := ReaderT.run notFound config
FS.createDirAll basePath FS.createDirAll basePath