diff options
Diffstat (limited to 'src/lib/sounds/sounds.ml')
| -rw-r--r-- | src/lib/sounds/sounds.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index afaf110..58d511b 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -36,6 +36,7 @@ type code = | Consonant_M | Consonant_N + | Consonant_GN | Consonant_L | Consonant_R | Diphtonge of t * t @@ -168,6 +169,11 @@ let j = code = Consonant_J ; mutable_ = false } +let gn = + { none with + code = Consonant_GN + ; nasal = true } + let n = { none with code = Consonant_N @@ -287,6 +293,7 @@ let repr | Consonant_M, _ -> Repr.m | Consonant_N, _ -> Repr.n + | Consonant_GN, _ -> Repr.gn | Consonant_L, _ -> Repr.l | Consonant_R, _ -> Repr.r | Diphtonge (l1, l2), _ -> Repr.diphtongue (_repr l1) (_repr l2) |