anil.recoil.org
The unpac monorepo manager self-hosting as a monorepo using unpac
Remove useless exception handler.
+1
-2
src/fpath.ml
+1
-2
src/fpath.ml
···
33
let dotdot = ".."
34
let dotdot_sub = String.sub dotdot
35
36
-
let validate_and_collapse_seps p = try
37
(* collapse non-initial sequences of [dir_sep] to a single one and checks
38
no null byte *)
39
let max_idx = String.length p - 1 in
···
60
if max_idx > 0 then (if p.[0] = dir_sep_char then 1 else 0) else 0
61
in
62
try_no_alloc false start
63
-
with Exit -> None
64
65
let is_unc_path_windows p = String.is_prefix "\\\\" p
66
···
33
let dotdot = ".."
34
let dotdot_sub = String.sub dotdot
35
36
+
let validate_and_collapse_seps p =
37
(* collapse non-initial sequences of [dir_sep] to a single one and checks
38
no null byte *)
39
let max_idx = String.length p - 1 in
···
60
if max_idx > 0 then (if p.[0] = dir_sep_char then 1 else 0) else 0
61
in
62
try_no_alloc false start
63
64
let is_unc_path_windows p = String.is_prefix "\\\\" p
65