added type signature

This commit is contained in:
Krasimir Angelov
2026-09-20 12:13:31 +02:00
parent 891ae30eef
commit 9090a3cda3
+1 -1
View File
@@ -55,7 +55,7 @@ oper weakAdj : Adj -> Gender -> Number -> Case -> Str =
\a,g,n,c -> a.s ! Weak ! g ! n ! c ; \a,g,n,c -> a.s ! Weak ! g ! n ! c ;
oper weakAdjForms : Str -> Gender => Number => Case => Str = \lemma -> oper weakAdjForms : Str -> Gender => Number => Case => Str = \lemma ->
let stem = case lemma of { let stem : Str = case lemma of {
x + "ur" => x ; x + "ur" => x ;
x + "nin" => x + "n" ; x + "nin" => x + "n" ;
x + "in" => x + "n" ; x + "in" => x + "n" ;