From 829ab04dcfd22a9872b3a57c39e7e870e14bbc48 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 2 Jan 2019 13:38:45 +0200
Subject: [PATCH] (Ara) Add a constructor for mkDet that allows gender variance

---
 src/arabic/MorphoAra.gf | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/arabic/MorphoAra.gf b/src/arabic/MorphoAra.gf
index 553fbbd2..314eca1a 100644
--- a/src/arabic/MorphoAra.gf
+++ b/src/arabic/MorphoAra.gf
@@ -5,8 +5,19 @@ flags optimize = all ;--noexpand;
 
   oper
 
-    mkDet : Str -> Number -> State -> Det
-      = mkDetDecl True ;
+    mkDet = overload {
+      mkDet : Str -> Number -> State -> Det
+        = mkDetDecl True ;
+      mkDet : (m,f : Str) -> Number -> State -> Det 
+        = \m,f,n,d ->
+        let detM = mkDetDecl True m n d ;
+            detF = mkDetDecl True f n d ;
+         in detM ** {
+              s = \\h,g,c => case g of {
+                        Fem  => detF.s ! h ! g ! c ;
+                        Masc => detM.s ! h ! g ! c }
+              } 
+    } ;
 
     mkDetDecl : Bool -> Str -> Number -> State -> Det
       = \decl,word,num,state -> baseQuant **