From 48dc04c3b9afe19207d15b873452129d9c2b3b4c Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 3 Sep 2021 15:15:00 +0200 Subject: Continued refactoring --- src/lib/modifiers/nasal.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/lib/modifiers/nasal.ml') diff --git a/src/lib/modifiers/nasal.ml b/src/lib/modifiers/nasal.ml index 8fdc60c..ec8ddb4 100644 --- a/src/lib/modifiers/nasal.ml +++ b/src/lib/modifiers/nasal.ml @@ -1,9 +1,9 @@ (* Remove the ending consonant, and transform the voyel into the nasal form *) let transform - : (module Sounds.T with type t = 'a) -> 'a Sig.consonants option -> 'a Sig.t -> 'a Sig.t + : (module Sounds.Sig.T with type t = 'a) -> 'a Sig.consonants option -> 'a Sig.t -> 'a Sig.t = fun (type el) m c init -> - let module T = (val m:Sounds.T with type t = el) in + let module T = (val m:Sounds.Sig.T with type t = el) in let (((v1, v2), _) , _) = init in begin match T.nasal v1, T.nasal v2 with @@ -22,7 +22,7 @@ let transform let process : 'a Sig.modifier = fun (type el) m init -> - let module T = (val m:Sounds.T with type t = el) in + let module T = (val m:Sounds.Sig.T with type t = el) in let (((v1, v2), c) , ending) = init in let ending = Option.bind ending (fun x -> x) in let opening = Option.map (fun v -> v.Sig.opening) c in -- cgit v1.2.3