diff options
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | src/common.ml | 6 |
2 files changed, 4 insertions, 3 deletions
@@ -1,3 +1,4 @@ +- Fix compiling with ocaml-5.3.0 - Fake packages: o Sync Gtk3::Notify fake package with libnotify-0.8.1 diff --git a/src/common.ml b/src/common.ml index ce57937..c71c94c 100644 --- a/src/common.ml +++ b/src/common.ml @@ -659,7 +659,7 @@ let rec graph_sort_by eq l = | [e] -> [e] | e::l -> let l' = sort_it l in - let gt, lt = break_at (fun ((_, deps) as e') -> deps = [] or cmp e e' = 1) l' in + let gt, lt = break_at (fun ((_, deps) as e') -> deps = [] || cmp e e' = 1) l' in gt @ [e] @ lt in map_or_option (fun l' -> @@ -737,8 +737,8 @@ let count_matching_char s c = in count_matching_char_ 0 0 -let is_uppercase c = Char.lowercase c <> c -let is_lowercase c = Char.uppercase c <> c +let is_uppercase c = Char.lowercase_ascii c <> c +let is_lowercase c = Char.uppercase_ascii c <> c let char_is_alphanumerical c = let i = Char.code c in |