diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-05 19:41:40 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-05 19:41:40 +0200 |
| commit | 6a34154b77ac80f89df816ba0062f382d915fb22 (patch) | |
| tree | 5dab18f15fe8555d5369a9c492228f6aa4d23001 /src/lib/process.ml | |
| parent | 853e281a6719125866f8b948540944c571b091c6 (diff) | |
Updated tests
Diffstat (limited to 'src/lib/process.ml')
| -rw-r--r-- | src/lib/process.ml | 14 |
1 files changed, 6 insertions, 8 deletions
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' |