From 64867f3025ff1a7cd8cad9b71d1d0cf58dec2b7c Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 14 May 2019 15:21:55 +0200
Subject: [PATCH] (Ara) Don't use verbalAgr in a verbless construction

Eventual TODO: restructure the whole agreement system, there are other
complications not present in the grammar currently and too much
redundancy in NTable.
---
 src/arabic/ResAra.gf | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index fe41d7585..284434744 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -577,9 +577,10 @@ oper
   predVP : NP -> VP -> Cl = \np,vp -> {
     s = \\t,p,o =>
       let pgn =
-            case <o,np.a.isPron> of {
-              <Verbal, False> => verbalAgr np.a.pgn;
-              _               => np.a.pgn
+            case <o,vp.vtype,np.a.isPron> of {
+              <Verbal, Copula, False> => np.a.pgn;
+              <Verbal, _,      False> => verbalAgr np.a.pgn;
+              _                       => np.a.pgn
             };
 
           -- very unsure about this /IL