diff options
Diffstat (limited to 'src/lib/modifiers/mute.ml')
| -rw-r--r-- | src/lib/modifiers/mute.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/lib/modifiers/mute.ml b/src/lib/modifiers/mute.ml index 331ed1a..e23965f 100644 --- a/src/lib/modifiers/mute.ml +++ b/src/lib/modifiers/mute.ml @@ -1,18 +1,16 @@ open StdLabels -module T = Sounds - (** Mute the last consonant if there is no voyel in the syllabus. This modifier is only applied in the first step, and not repeated anymore. *)let process : 'a Sig.modifier = fun init -> - let (((v1, v2), c) , ending) = init in - let is_voyel = T.is_voyel v1 && T.is_voyel v2 in + let ((v, c) , ending) = init in + let is_voyel = Sounds.is_voyel v in match is_voyel, c with | false, Some c -> - let c = { c with Sig.opening = List.map ~f:T.muted c.Sig.opening } in - (((v1, v2), Some c) , ending) + let c = { c with Sig.opening = List.map ~f:Sounds.muted c.Sig.opening } in + ((v, Some c) , ending) | _ -> init |