Transform the letter e into eu or E

3 files changed, 12 insertions, 10 deletions

diff --git a/src/lib/sounds/sig.ml b/src/lib/sounds/sig.ml
index 512abdc..5322a12 100644
--- a/src/lib/sounds/sig.ml
+++ b/src/lib/sounds/sig.ml
@@ -10,7 +10,8 @@ module type REPR = sig
   val e_closed : t
   val schwa : t
 
-  val eu : t
+  val eu_closed : t
+  val eu_opened : t
 
   val o : t
   val o_nasal : t
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml
index a8c9ce9..afaf110 100644
--- a/src/lib/sounds/sounds.ml
+++ b/src/lib/sounds/sounds.ml
@@ -17,7 +17,8 @@ type code =
   | Voyel_U (* OU like in Ouvrir *)
   | Voyel_Y (* U like in Unique *)
   | Voyel_AI
-  | Voyel_EU
+  | Voyel_EU_Closed
+  | Voyel_EU_Opened
   | SemiVoyel_W
   | SemiVoyel_Y
   | Consonant_P
@@ -82,13 +83,12 @@ let e = function
   | `Closed -> { voyel with code = E_Closed }
   | `Opened -> { voyel with code = E_Opened }
 
-let eu =
-  { voyel with
-    code = Voyel_EU
-  }
+let eu = function
+  | `Closed -> { voyel with code = Voyel_EU_Closed }
+  | `Opened -> { voyel with code = Voyel_EU_Opened }
 
 
-let schwa () =
+let schwa =
   { voyel with
     code = Voyel_E }
 
@@ -264,7 +264,8 @@ let repr
       | Voyel_U, _  -> Repr.u
       | Voyel_Y, false -> Repr.y
       | Voyel_Y, true -> Repr.y_nasal
-      | Voyel_EU, _ -> Repr.eu
+      | Voyel_EU_Closed, _ -> Repr.eu_closed
+      | Voyel_EU_Opened, _ -> Repr.eu_opened
 
       | SemiVoyel_W, _ -> Repr.semi_voyel_w
       | SemiVoyel_Y, _ -> Repr.semi_voyel_y
diff --git a/src/lib/sounds/sounds.mli b/src/lib/sounds/sounds.mli
index dcb5e8d..2fae17f 100644
--- a/src/lib/sounds/sounds.mli
+++ b/src/lib/sounds/sounds.mli
@@ -5,10 +5,10 @@ val muted : t -> t
 
 val a : t
 val e : [`Closed | `Opened] -> t
-val eu : t
+val eu : [`Closed | `Opened] -> t
 
 val o : t
-val schwa : unit -> t
+val schwa: t
 
 (** This is an empty sound.