Remove Value.compare

it wasn't used

Signed-off-by: Rudi Grinberg <[email protected]>

Author: rgrinberg

src/value.ml

@@ -14,16 +14,6 @@ let sexp_of_t =
 
 let string_of_path ~dir p = Path.reach ~from:dir p
 
-let compare x y =
-  match x, y with
-  | String x, String y -> String.compare x y
-  | Path x, Path y -> Path.compare x y
-  | _     , _ ->
-    Exn.code_error "Value.compare"
-      [ "x", sexp_of_t x
-      ; "y", sexp_of_t y
-      ]
-
 let to_string t ~dir =
   match t with
   | String s -> s

src/value.mli

@@ -5,7 +5,7 @@ type t =
   | Dir of Path.t
   | Path of Path.t
 
-val compare : t -> t -> Ordering.t
+val sexp_of_t : t Sexp.To_sexp.t
 
 val to_string : t -> dir:Path.t -> string