From a90662218fda5f63abe574bdb6530ae2b6f86afb Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Sat, 19 Aug 2017 22:11:35 +0200
Subject: [PATCH] UseComparA in Turkish

---
 src/turkish/AdjectiveTur.gf | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/turkish/AdjectiveTur.gf b/src/turkish/AdjectiveTur.gf
index a005a2798..308f06d06 100644
--- a/src/turkish/AdjectiveTur.gf
+++ b/src/turkish/AdjectiveTur.gf
@@ -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
+      } ;
 
 }