UseComparA in Turkish
This commit is contained in:
1 parent
3201407474
commit
a90662218f
1 file changed
+3
-1
@@ -2,9 +2,11 @@ concrete AdjectiveTur of Adjective = CatTur ** open ResTur, Prelude in {
|
||||
|
||||
lin
|
||||
PositA a = {s=a.s} ;
|
||||
|
||||
ComparA a np = {
|
||||
s = \\n,c => np.s ! Ablat ++ a.s ! n ! c ;
|
||||
} ;
|
||||
UseComparA a = {
|
||||
s = \\n,c => "daha" ++ a.s ! n ! c
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in new issue
Block a user