From 1faa9acd93c2afc3796b9b6384c735c68e71c764 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 21 Jan 2019 12:17:55 +0100
Subject: [PATCH] (Ara) Fix dual for defective verbs that end in w

---
 src/arabic/MorphoAra.gf | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/arabic/MorphoAra.gf b/src/arabic/MorphoAra.gf
index adc032a8..95ee44da 100644
--- a/src/arabic/MorphoAra.gf
+++ b/src/arabic/MorphoAra.gf
@@ -520,18 +520,20 @@ oper
         table {
           Per3 Masc Pl => "وْنَ" ;
           Per2 Masc Pl => "وْنَ" ;
-          Per3 g    Dl => "يَانِ" ;
-          Per2 g    Dl => "يَانِ" ;
+          (Per3 _ Dl|Per2 _ Dl) => case vw of {
+                     u => "وَانِ" ;
+                     _ => "يَانِ" } ;
           Per3 Fem  Pl => "يْنَ" ;
           Per2 Fem  _  => "يْنَ" ;
           _            => default Ind
         } ;
-      m =>
+      m => -- TODO: check whether to remove sukuns
         table {
           Per3 Masc Pl => "وْا" ;
           Per2 Masc Pl => "وْا" ;
-          Per3 g    Dl => "يَا" ;
-          Per2 g    Dl => "يَا" ;
+          (Per3 _ Dl|Per2 _ Dl) => case vw of {
+                     u => "وَا" ;
+                     _ => "يَا" } ;
           Per3 Fem  Pl => "يْنَ" ;
           Per2 Fem  Pl => "يْنَ" ;
           Per2 Fem  Sg => "ي" ;