mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
reindent
This commit is contained in:
parent
f98bcffaee
commit
bc27e60a81
12 changed files with 185 additions and 185 deletions
|
|
@ -1017,7 +1017,7 @@ let uniq ~eq l =
|
|||
(*$Q
|
||||
Q.(small_list small_int) (fun l -> \
|
||||
sort_uniq ~cmp:CCInt.compare l = (uniq ~eq:CCInt.equal l |> sort Pervasives.compare))
|
||||
*)
|
||||
*)
|
||||
|
||||
let union ~eq l1 l2 =
|
||||
let rec union eq acc l1 l2 = match l1 with
|
||||
|
|
|
|||
|
|
@ -775,7 +775,7 @@ let exists2 p s1 s2 =
|
|||
try iter2 (fun c1 c2 -> if p c1 c2 then raise MyExit) s1 s2; false
|
||||
with MyExit -> true
|
||||
|
||||
(** {2 Ascii functions} *)
|
||||
(** {2 Ascii functions} *)
|
||||
|
||||
let equal_caseless s1 s2: bool =
|
||||
String.length s1 = String.length s2 &&
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
let () =
|
||||
let () =
|
||||
let major, minor =
|
||||
Scanf.sscanf Sys.ocaml_version "%u.%u"
|
||||
(fun major minor -> major, minor)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue