diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-03 17:37:03 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-03 17:37:03 +0200 |
| commit | 123c8bc693063cfc880709c7dfa700a177a66adb (patch) | |
| tree | 5dd508c4ac5876fe80a661a4281b6fdaf3d064a9 /src/lib/modifiers/mute.ml | |
| parent | 48dc04c3b9afe19207d15b873452129d9c2b3b4c (diff) | |
Ended refactoring
Diffstat (limited to 'src/lib/modifiers/mute.ml')
| -rw-r--r-- | src/lib/modifiers/mute.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lib/modifiers/mute.ml b/src/lib/modifiers/mute.ml index 3597876..331ed1a 100644 --- a/src/lib/modifiers/mute.ml +++ b/src/lib/modifiers/mute.ml @@ -1,12 +1,12 @@ open StdLabels +module T = Sounds (** Mute the last consonant if there is no voyel in the syllabus. This modifier is only applied in the first step, and not repeated anymore. *)let process : 'a Sig.modifier - = fun (type el) m init -> - let module T = (val m:Sounds.Sig.T with type t = el) in + = fun init -> let (((v1, v2), c) , ending) = init in let is_voyel = T.is_voyel v1 && T.is_voyel v2 in match is_voyel, c with |