Transform the letter e into eu or E

1 files changed, 8 insertions, 10 deletions

diff --git a/src/lib/modifiers/vocalize.ml b/src/lib/modifiers/vocalize.ml
index 1014642..068279d 100644
--- a/src/lib/modifiers/vocalize.ml
+++ b/src/lib/modifiers/vocalize.ml
@@ -1,25 +1,23 @@
-module T = Sounds
-
 (** Transform the S into Z if the S is the opening consonant and
     there is no ending consonant before *)
 let process
   : 'a Sig.modifier
   = fun init ->
-    let (((v1, v2), c) , ending) = init in
+    let ((v, c) , ending) = init in
 
     match c with
     | None -> init
     | Some op ->
       (* The voyel may be none in case of ending word. In such case, we shall
          not transform the S into Z *)
-      let is_voyel = T.is_voyel v1 && T.is_voyel v2 in
+      let is_voyel = Sounds.is_voyel v in
 
       match is_voyel, op.Sig.opening, op.Sig.ending with
-      | true, hd::[], None when hd = T.sz ->
-        let c = Some { op with opening = [T.z] } in
-        (((v1, v2), c) , ending)
-      | true, hd::n::[], None when hd = T.sz && T.is_voyel n->
+      | true, hd::[], None when hd = Sounds.sz ->
+        let c = Some { op with opening = [Sounds.z] } in
+        ((v, c) , ending)
+      | true, hd::n::[], None when hd = Sounds.sz && Sounds.is_voyel n->
         (* The s is followed by a semi-voyel *)
-        let c = Some { op with opening = [T.z; n] } in
-        (((v1, v2), c) , ending)
+        let c = Some { op with opening = [Sounds.z; n] } in
+        ((v, c) , ending)
       | _ -> init