Remove Value.compare

it wasn't used Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Jul 31, 2018 · bf89dee · bf89dee
1 parent bf895fd
commit bf89dee
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 11 deletions.
diff --git a/src/value.ml b/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

diff --git a/src/value.mli b/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