diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-01 18:33:26 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-01 18:33:26 +0200 |
| commit | 12ccc075d724f9985be488b162b243f46dff871a (patch) | |
| tree | ae788a28754397db7ad009c011b9c02818cc555d /src/lib/process.ml | |
| parent | 843230359b2157212c4e93b51994f0fde90d808b (diff) | |
Made all tests pass
Diffstat (limited to 'src/lib/process.ml')
| -rw-r--r-- | src/lib/process.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/lib/process.ml b/src/lib/process.ml index 8c463b5..fa0d056 100644 --- a/src/lib/process.ml +++ b/src/lib/process.ml @@ -32,7 +32,10 @@ module M(T:Sounds.T) = struct = function | [] -> acc | hd::tl -> - let modifier = (Modifiers.vocalize_s) :: (Modifiers.nasal) :: m in + + let modifier = match tl with + | [] -> Modifiers.nasal::m + | _ -> (Modifiers.vocalize_s) :: (Modifiers.nasal) :: m in let (voyel, consonants), ending_consonant = apply_modifiers (hd, ending_consonant) |