From 27da43c37d466c225086ea1480e4dd71e0001937 Mon Sep 17 00:00:00 2001
From: Ayberk Tosun <ayberk.tosun@gmail.com>
Date: Tue, 22 Aug 2017 12:03:59 +0300
Subject: [PATCH] Some progress on the implementation of mkClause

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

diff --git a/src/turkish/GrammarTur.gf b/src/turkish/GrammarTur.gf
index caca35938..882d3c81f 100644
--- a/src/turkish/GrammarTur.gf
+++ b/src/turkish/GrammarTur.gf
@@ -2,9 +2,11 @@
 
 concrete GrammarTur of Grammar =
   NounTur,
+  VerbTur,
   AdjectiveTur,
   NumeralTur,
-  StructuralTur
+  StructuralTur,
+  SentenceTur
   ** {
 
 flags startcat = Phr ; unlexer = text ; lexer = text ;
diff --git a/src/turkish/ResTur.gf b/src/turkish/ResTur.gf
index e9546a7a6..289467b18 100644
--- a/src/turkish/ResTur.gf
+++ b/src/turkish/ResTur.gf
@@ -68,5 +68,5 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
     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 "TODO" ;
+      \np, v -> ss (np ++ v.s ! VInfinitive) ;
 }