Transform the letter e into eu or E

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