From 77bda930323c49b7159869127ce9fcb88bf33e52 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 20 Sep 2018 09:39:37 +0200
Subject: [PATCH] add ComplA2

---
 src/arabic/AdjectiveAra.gf | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/arabic/AdjectiveAra.gf b/src/arabic/AdjectiveAra.gf
index aa8a0b306..98734aba3 100644
--- a/src/arabic/AdjectiveAra.gf
+++ b/src/arabic/AdjectiveAra.gf
@@ -20,10 +20,9 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in {
 --
 -- $SuperlA$ belongs to determiner syntax in $Noun$.
 --
---    ComplA2 a np = {
---      s = \\_ => a.s ! AAdj Posit ++ a.c2 ++ np.s ! Acc ; 
---      isPre = False
---      } ;
+   ComplA2 a np = {
+     s = \\sp,g,n,st,c => a.s ! APosit g n st c ++ a.c2 ++ np.s ! Gen ;
+     } ;
 --
 --    ReflA2 a = {
 --      s = \\ag => a.s ! AAdj Posit ++ a.c2 ++ reflPron ! ag ;