Commits

camlspotter  committed 6b422c6

added WithCache.cache type

  • Participants
  • Parent commits 37536e6

Comments (0)

Files changed (2)

File levenshtein.ml

 module type WithCache = sig
   type t
   module Cache : Hashtbl.S with type key = t * t
+  type cache = result Cache.t
   val distance : result Cache.t -> ?upper_bound: int -> t -> t -> int
 end
 
     include A.Pair
   end)
 
+  type cache = result Cache.t
+
   module WithoutCache = Make(A)
 
   let distance cache ?(upper_bound=max_int) xs ys =

File levenshtein.mli

 module type WithCache = sig
   type t
   module Cache : Hashtbl.S with type key = t * t
+  type cache = result Cache.t
   val distance : result Cache.t -> ?upper_bound: int -> t -> t -> int
 end