From fce02e729c922f1dd9571e83a28e0ecafb80169a Mon Sep 17 00:00:00 2001
From: Francois Berenger <unixjunkie@sdf.org>
Date: Fri, 15 Nov 2019 17:25:55 +0900
Subject: [PATCH] Utls.list_medianf: use float comparison instead of generic

---
 src/utls.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/utls.ml b/src/utls.ml
index c5eb100..ce7cb30 100644
--- a/src/utls.ml
+++ b/src/utls.ml
@@ -333,7 +333,7 @@ let in_bounds lb x hb =
 
 let list_medianf (l: float list): float =
   let xs = Array.of_list l in
-  Array.sort Pervasives.compare xs;
+  Array.sort BatFloat.compare xs;
   let n = Array.length xs in
   if n mod 2 = 1 then
     xs.(n/2)