From efebc082fa3f1797e343d9386ea55beccbcb413b Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 19 Nov 2018 12:05:50 +0100
Subject: [PATCH] (Ara) Add SubjS

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

diff --git a/src/arabic/AdverbAra.gf b/src/arabic/AdverbAra.gf
index d6f8eb9f3..df61ffc59 100644
--- a/src/arabic/AdverbAra.gf
+++ b/src/arabic/AdverbAra.gf
@@ -14,7 +14,8 @@ concrete AdverbAra of Adverb = CatAra ** open ResAra, Prelude in {
 
 --    AdAdv = cc2 ;
 --
---    SubjS = cc2 ;
+   -- : Subj -> S -> Adv ;              -- when she sleeps
+   SubjS subj s = {s = subj.s ++ s.s ! Subord} ;
 --    AdvSC s = s ; --- this rule give stack overflow in ordinary parsing
 --
 --    AdnCAdv cadv = {s = cadv.s ++ "تهَن"} ;