Commit 09ede4d4 authored by Bruno Guillaume's avatar Bruno Guillaume

do not output empty words

parent 2a8d508d
......@@ -297,9 +297,13 @@ module G_fs = struct
(* ---------------------------------------------------------------------- *)
let to_word (t:t) =
match List_.sort_assoc "phon" t with
| Some s -> Some (string_of_value s)
| None -> match List_.sort_assoc "form" t with
match List_.sort_assoc "_UD_empty" t with
| Some v when string_of_value v = "Yes" -> None
| _ ->
match List_.sort_assoc "phon" t with
| Some s -> Some (string_of_value s)
| None ->
match List_.sort_assoc "form" t with
| Some s -> Some (string_of_value s)
| None -> None
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment