From 0441cf158614edfdf57db7f85ce3d5eccc761aa0 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 8 Oct 2018 16:12:33 +0200
Subject: [PATCH] =?UTF-8?q?(Fin)=20Add=20infAdess=20("tekem=C3=A4ll=C3=A4"?=
 =?UTF-8?q?)=20to=20the=20API?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/finnish/ParadigmsFin.gf | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index c643b892d..96c82781e 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -61,6 +61,7 @@ oper
   infIness : InfForm ; -- e.g. "tekemässä"
   infElat  : InfForm ; -- e.g. "tekemästä"
   infIllat : InfForm ; -- e.g. "tekemään"
+  infAdess : InfForm ; -- e.g. "tekemällä"
   infPresPart : InfForm ; -- e.g. "tekevän"
   infPresPartAgr : InfForm ; -- e.g. "tekevänsä"
 
@@ -390,7 +391,10 @@ mkVS = overload {
   ablative = Ablat ;
   allative = Allat ;
 
-  infFirst = Inf1 ; infElat = Inf3Elat ; infIllat = Inf3Illat ; infIness = Inf3Iness ; infPresPart = InfPresPart ; infPresPartAgr = InfPresPartAgr ;
+  infFirst = Inf1 ;
+  infElat = Inf3Elat ; infIllat = Inf3Illat ;
+  infIness = Inf3Iness ; infAdess =  Inf3Adess ;
+  infPresPart = InfPresPart ; infPresPartAgr = InfPresPartAgr ;
 
   prePrep  : Case -> Str -> Prep = 
     \c,p -> lin Prep {c = NPCase c ; s = <tagFeature (tagPOS "ADP" p) "AdvType" "Pre", [],\\_ => []>} ; -- no possessive suffix