simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 20:04:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

reindent

Browse source
This commit is contained in:
Simon Cruanes 2018-01-21 14:39:44 -06:00
parent f98bcffaee
commit bc27e60a81
12 changed files with 185 additions and 185 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCList.ml
View file

@ -1017,7 +1017,7 @@ let uniq ~eq l =
(*$Q (*$Q
Q.(small_list small_int) (fun l -> \ Q.(small_list small_int) (fun l -> \
sort_uniq ~cmp:CCInt.compare l = (uniq ~eq:CCInt.equal l |> sort Pervasives.compare)) sort_uniq ~cmp:CCInt.compare l = (uniq ~eq:CCInt.equal l |> sort Pervasives.compare))
*) *)
let union ~eq l1 l2 = let union ~eq l1 l2 =
let rec union eq acc l1 l2 = match l1 with let rec union eq acc l1 l2 = match l1 with

2
src/core/CCString.ml
View file

@ -775,7 +775,7 @@ let exists2 p s1 s2 =
try iter2 (fun c1 c2 -> if p c1 c2 then raise MyExit) s1 s2; false try iter2 (fun c1 c2 -> if p c1 c2 then raise MyExit) s1 s2; false
with MyExit -> true with MyExit -> true
(** {2 Ascii functions} *) (** {2 Ascii functions} *)
let equal_caseless s1 s2: bool = let equal_caseless s1 s2: bool =
String.length s1 = String.length s2 && String.length s1 = String.length s2 &&

2
src/mkflags.ml
View file

@ -1,4 +1,4 @@
let () = let () =
let major, minor = let major, minor =
Scanf.sscanf Sys.ocaml_version "%u.%u" Scanf.sscanf Sys.ocaml_version "%u.%u"
(fun major minor -> major, minor) (fun major minor -> major, minor)