Use List.sort_uniq that will work in 4.02

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Apr 3, 2019 · 8b70d74 · 8b70d74
1 parent ac1e29b
commit 8b70d74
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/stdune/caml/dune_caml.ml b/src/stdune/caml/dune_caml.ml
@@ -10,6 +10,7 @@ module Lexing   = Lexing
 module Digest   = Digest
 module StringLabels = StringLabels
 module ListLabels   = ListLabels
+module List   = List
 
 type ('a, 'error) result = ('a, 'error) Result.t =
   | Ok    of 'a

diff --git a/src/stdune/list.ml b/src/stdune/list.ml
@@ -112,7 +112,7 @@ let stable_sort t ~compare =
   stable_sort t ~cmp:(fun a b -> Ordering.to_int (compare a b))
 
 let sort_uniq t ~compare =
-  sort_uniq t ~cmp:(fun a b -> Ordering.to_int (compare a b))
+  Dune_caml.List.sort_uniq (fun a b -> Ordering.to_int (compare a b)) t
 
 let rec compare a b ~compare:f : Ordering.t =
   match a, b with