From 6a34154b77ac80f89df816ba0062f382d915fb22 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Sun, 5 Sep 2021 19:41:40 +0200 Subject: Updated tests --- src/lib/process.ml | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'src/lib/process.ml') diff --git a/src/lib/process.ml b/src/lib/process.ml index f85853f..d6ad291 100644 --- a/src/lib/process.ml +++ b/src/lib/process.ml @@ -2,7 +2,7 @@ open StdLabels type voyel = Sounds.t -type group = voyel * Sounds.t Modifiers.Sig.consonants option +type group = voyel * Modifiers.Sig.consonants option type modifier = Sounds.t Modifiers.Sig.modifier (** Apply all the modifiers to the syllabic group in order to correct the @@ -41,9 +41,9 @@ let rec _rebuild ~(m:modifier list) acc ending_consonant : group list -> Sounds. | Some s -> voyel :: s::acc in - (* Apply the modifiers to the previous syllabus. + (* Apply the modifiers to the previous syllabe. - Only transform the e into eu / E if there is previous syllabus with + Only transform the e into eu / E if there is previous syllabe with voyel. *) let modifiers = if voyel = Sounds.none then [] @@ -75,10 +75,8 @@ let rec _rebuild ~(m:modifier list) acc ending_consonant : group list -> Sounds. *) let rebuild - : Sounds.t Modifiers.Sig.consonants option -> group list -> Sounds.t list + : Modifiers.Sig.consonants option -> group list -> Sounds.t list = fun ending elems -> - let elems' = match ending with - | None -> elems - | Some _ -> (Sounds.none, ending)::elems in - _rebuild ~m:[Modifiers.mute_consonant] [] None elems' + let elems' = (Sounds.none, ending)::elems in + _rebuild ~m:[Modifiers.mute_consonant;Modifiers.ending_e;] [] None elems' -- cgit v1.2.3