Compat

ocaml · Aug 21, 2024 · c99abf0 · c99abf0
1 parent 10fbf04
commit c99abf0
Showing 1 changed file with 7 additions and 8 deletions.
diff --git a/src/html/link.ml b/src/html/link.ml
@@ -15,16 +15,15 @@ module Path = struct
 
   let remap config f =
     let l = String.concat "/" f in
-    match
-      List.find_opt
+    try
+      let (prefix, replacement) = List.find
         (fun (prefix, _replacement) -> Astring.String.is_prefix ~affix:prefix l)
-        (Config.remap config)
+        (Config.remap config) in
+      let len = String.length prefix in
+      let l = String.sub l len (String.length l - len) in
+      Some (replacement ^ l)
     with
-    | None -> None
-    | Some (prefix, replacement) ->
-        let len = String.length prefix in
-        let l = String.sub l len (String.length l - len) in
-        Some (replacement ^ l)
+    | Not_found -> None
 
   let get_dir_and_file ~config url =
     let l = Url.Path.to_list url in