From 64e9947a61b146623c30397ec9462fb4af0bad8b Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 5 Jul 2019 10:44:56 +0200
Subject: [PATCH] (Ara) Fix bug in mkN instance for sg,pl,gender,species.

---
 src/arabic/ParadigmsAra.gf | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index c8e6b5256..ce479f944 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -367,7 +367,9 @@ resource ParadigmsAra = open
    mkN : Species -> N -> N
      = \p,n -> n ** {h = p} ;
    mkN : (sg,pl : Str) -> Gender -> Species -> N
-     = \sg,pl -> mkFullN (reg sg pl) ;
+     = \sg,pl -> case <sg,pl> of {
+          <x@(_ + "ة") + #vow*, _ + "ات" + #vow*> => mkFullN (sndf x) ; -- extra safety: if someone gives case marking to the constructor, ignore it
+          _ => mkFullN (reg sg pl) } ;
    mkN : NTable -> Gender -> Species -> N -- TO BE DEPRECATED; kept for backwards-compatibility. For the same behaviour, use either the constructor above, sdfN or sdmN.
      = mkFullN ;
    mkN : (root,sgPatt,brokenPlPatt : Str) -> Gender -> Species -> N   -- broken plural