diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-14 13:46:38 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-14 13:46:38 +0200 |
| commit | f68d06c6418e3d025e81e819183dfa049605bfa0 (patch) | |
| tree | 6729a47ae68bf69e2d4c64907abb6e9bf976338f /src/lib/modifiers | |
| parent | 1d53f5efd02b228f22c2eba0bdfca6c2aabbd8f6 (diff) | |
Corrections
Diffstat (limited to 'src/lib/modifiers')
| -rw-r--r-- | src/lib/modifiers/mute.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/lib/modifiers/mute.ml b/src/lib/modifiers/mute.ml index 7b58336..2a307e0 100644 --- a/src/lib/modifiers/mute.ml +++ b/src/lib/modifiers/mute.ml @@ -9,9 +9,9 @@ let process = fun init -> let ((v, c) , ending) = init in let is_voyel = Sounds.is_voyel v in - match is_voyel, c with - | false, Some c -> - let c = { c with Sig.opening = List.map ~f:Sounds.muted c.Sig.opening } in + match is_voyel, c, ending with + | false, Some c, None -> + let c = { c with Sig.opening = List.map ~f:Sounds.mute c.Sig.opening } in ((v, Some c) , ending) | _ -> init |