From f5068a76de6735e31ae2f620417d1cd5d7c08f95 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 17 Apr 2020 12:50:33 +0200
Subject: [PATCH] (Hun) Fix have_V2

---
 src/hungarian/ResHun.gf        | 6 ++++++
 src/hungarian/StructuralHun.gf | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/hungarian/ResHun.gf b/src/hungarian/ResHun.gf
index b3b2589b7..ef964cf2a 100644
--- a/src/hungarian/ResHun.gf
+++ b/src/hungarian/ResHun.gf
@@ -193,6 +193,12 @@ oper
     -- c3 : Case   -- indirect object case
     } ;
 
+  datV2 : Verb -> Verb2 = \v -> {
+    s = \\_ => v.s ;
+    sc = SCDat ;
+    c2 = Nom
+    } ;
+
   mkVerb2 : Str -> Verb2 = \sg3 -> vtov2 (mkVerb sg3) ;
   mkVerb3 : Str -> Verb3 = \sg3 -> v2tov3 (mkVerb2 sg3) ;
 
diff --git a/src/hungarian/StructuralHun.gf b/src/hungarian/StructuralHun.gf
index 3e6feb4ae..24d610d69 100644
--- a/src/hungarian/StructuralHun.gf
+++ b/src/hungarian/StructuralHun.gf
@@ -214,7 +214,7 @@ lin yes_Utt = ss "igen" ;
 -------
 -- Verb
 
-lin have_V2 = vtov2 copula ** {sc = SCDat ; c2 = Nom} ;
+lin have_V2 = datV2 copula ;
 {-lin can8know_VV = can_VV ; -- can (capacity)
 lin can_VV = mkVV "" ;   -- can (possibility)
 lin must_VV = mkVV "" ;