From 90032d043844af7a65ffeeb1696c479d83f925da Mon Sep 17 00:00:00 2001
From: Ayberk Tosun <ayberk.tosun@gmail.com>
Date: Tue, 22 Aug 2017 12:18:18 +0300
Subject: [PATCH] Make mkClause take an Agr

---
 src/turkish/ResTur.gf      | 4 ++--
 src/turkish/SentenceTur.gf | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/turkish/ResTur.gf b/src/turkish/ResTur.gf
index 289467b18..9d793ad44 100644
--- a/src/turkish/ResTur.gf
+++ b/src/turkish/ResTur.gf
@@ -67,6 +67,6 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
     no_Prep = mkPrep [] Acc;
     mkPrep : Str -> Case -> {s : Str; c : Case; lock_Prep : {}} = \s,c -> lin Prep {s=s; c=c};
 
-    mkClause : Str -> Verb -> {s : Str} =
-      \np, v -> ss (np ++ v.s ! VInfinitive) ;
+    mkClause : Str -> Agr -> Verb -> {s : Str} =
+      \np, a, v -> ss (np ++ v.s ! VProg a) ;
 }
diff --git a/src/turkish/SentenceTur.gf b/src/turkish/SentenceTur.gf
index 043887c02..d1664e0fd 100644
--- a/src/turkish/SentenceTur.gf
+++ b/src/turkish/SentenceTur.gf
@@ -2,6 +2,6 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
 
   lin
 
-    PredVP np vp = mkClause (np.s ! Nom) vp ;
+    PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
 
 }