From 7f2a5bf18fbc17e04a385cffdf074ede72470d04 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Sun, 28 Jun 2020 14:10:37 +0200
Subject: [PATCH] (Hun) Handle dashes separately from multiwords

---
 src/hungarian/NounMorphoHun.gf | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf
index e7a4f3a8e..bb5965c2f 100644
--- a/src/hungarian/NounMorphoHun.gf
+++ b/src/hungarian/NounMorphoHun.gf
@@ -631,18 +631,23 @@ oper
     } ;
 
     Multiword : Type = {p1,p2 : Str} ;
-    splitMultiword : Str -> Multiword = \multi_word -> case multi_word of {
-        x + "-" + y
-          => <x+"-", y> ;
+    splitMultiword : Str -> Multiword = \mw -> case mw of {
         v + " " + w + " " + x + " " + y + " " + z
-          => <v ++ w ++ x ++ y+" ", z> ;
+          => splitDash <v ++ w ++ x ++ y+" ", z> ;
         w + " " + x + " " + y + " " + z
-          => <w ++ x ++ y+" ", z> ;
+          => splitDash <w ++ x ++ y+" ", z> ;
         x + " " + y + " " + z
-          => <x ++ y+" ", z> ;
+          => splitDash <x ++ y+" ", z> ;
         y + " " + z
-          => <y + " ", z> ;
-        _ => <"", multi_word>
+          => splitDash <y + " ", z> ;
+        _ => splitDash <"", mw>
         } ;
 
+    splitDash : Multiword -> Multiword = \mw ->
+      case mw of {
+        <prefix, x + "-" + y>
+          => <prefix ++ x + "-", y> ;
+        _ => mw
+      } ;
+
 }