Skip to content
Snippets Groups Projects
Commit 75060621 authored by Loïc Correnson's avatar Loïc Correnson
Browse files

[libs] linter

parent 1cb7b360
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/libraries/utils/markdown.ml
+ 3
− 3
View file @ 75060621
...@@ -222,9 +222,9 @@ let relativize page target = ...@@ -222,9 +222,9 @@ let relativize page target =
go_up p1 @ l2 go_up p1 @ l2
| d2 :: p2 when d2 = d1 -> remove_common p1 p2 | d2 :: p2 when d2 = d1 -> remove_common p1 p2
| _ -> go_up p1 @ l2 | _ -> go_up p1 @ l2
in in
let relative = remove_common page_dir target_dir in let relative = remove_common page_dir target_dir in
String.concat "/" relative String.concat "/" relative
let pp_href ?(page="") fmt = function let pp_href ?(page="") fmt = function
| URL s -> Format.pp_print_string fmt s | URL s -> Format.pp_print_string fmt s
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment