From 8b70d74c11105cf9ebe1873879039f789af45870 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Tue, 2 Apr 2019 11:57:56 +0700 Subject: [PATCH] Use List.sort_uniq that will work in 4.02 Signed-off-by: Rudi Grinberg --- src/stdune/caml/dune_caml.ml | 1 + src/stdune/list.ml | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/stdune/caml/dune_caml.ml b/src/stdune/caml/dune_caml.ml index 50c661074bc..e0a3875dc9e 100644 --- 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 index 8e1aea6436d..f20ad954dcd 100644 --- 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