added type signature

This commit is contained in:
Krasimir Angelov
2026-05-05 21:42:57 +02:00
parent 3a133d035d
commit 57ef377e6d

View File

@@ -428,7 +428,8 @@ oper
v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Dat} ; v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Dat} ;
mkVerb : (sg3 : Str) -> Verb = \sg3 -> mkVerb : (sg3 : Str) -> Verb = \sg3 ->
let inf = case sg3 of { let inf : Str
= case sg3 of {
_ + ("ít" | (#c + #c)) => sg3 + harm3 "ani" "eni" "eni" ! getHarm sg3 ; _ + ("ít" | (#c + #c)) => sg3 + harm3 "ani" "eni" "eni" ! getHarm sg3 ;
_ => sg3 + "ni" _ => sg3 + "ni"
} }