From b2cc67aef50edfa1bcb9f2eeede8ce9e665f4ace Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 13 Apr 2022 17:27:14 +0800
Subject: [PATCH] (Est) Fix negative passive

TODO: more stable solution? conneg in Imper Sg is a bit of a hack
---
 src/estonian/ResEst.gf | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/estonian/ResEst.gf b/src/estonian/ResEst.gf
index cbcece30..c6ce9643 100644
--- a/src/estonian/ResEst.gf
+++ b/src/estonian/ResEst.gf
@@ -204,12 +204,13 @@ oper
 
   passiveVerb : Verb -> Verb = \verb -> verb ** {
     s = table {
-      Presn _ _ => verb.s ! PassPresn True ;
+      Presn _ _  => verb.s ! PassPresn True ;
       Impf  _ _  => verb.s ! PassImpf True ;   --# notpresent
       Condit _ _ => verb.s ! ConditPass ;  --# notpresent
-      ImperP3|ImperP1Pl|Imper _  => verb.s ! ImperPass ;
-      PresPart _  => verb.s ! PresPart Pass ;
-      PastPart _  => verb.s ! PastPart Pass ;
+      ImperP3    => verb.s ! ImperPass ;
+      Imper Sg   => verb.s ! PassPresn False ; -- weird hack, because the Imper Sg field is used for negative form; if VP undergoes PassV*, then its negation should also be in passive.
+      PresPart _ => verb.s ! PresPart Pass ;
+      PastPart _ => verb.s ! PastPart Pass ;
       x => verb.s ! x }
     } ;