simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed warnings in Levenshtein

Browse source
This commit is contained in:
Simon Cruanes 2014-05-17 09:53:21 +02:00
parent 113ea6d395
commit 17a04f5ebf
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
string/levenshtein.ml
View file

@ -167,7 +167,7 @@ module Make(Str : STRING) = struct
| Epsilon of int * int | Epsilon of int * int
(* non deterministic automaton *) (* non deterministic automaton *)
type t = transition list array array type _t = transition list array array
let length nda = Array.length nda let length nda = Array.length nda
@ -278,7 +278,7 @@ module Make(Str : STRING) = struct
let compare = Pervasives.compare let compare = Pervasives.compare
end) end)
let set_to_string s = let _set_to_string s =
let b = Buffer.create 15 in let b = Buffer.create 15 in
Buffer.add_char b '{'; Buffer.add_char b '{';
NDAStateSet.iter NDAStateSet.iter
@ -470,12 +470,6 @@ module Make(Str : STRING) = struct
let of_list ~limit l = let of_list ~limit l =
of_string ~limit (Str.of_list l) of_string ~limit (Str.of_list l)
type match_result =
| TooFar
| Distance of int
exception FoundDistance of int
let rec __find_char c l = match l with let rec __find_char c l = match l with
| [] -> raise Not_found | [] -> raise Not_found
| (c', next) :: l' -> | (c', next) :: l' ->