From 2888073c44d0dbb6a467adcb161be58011416a1c Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 7 Nov 2018 11:30:00 +0100
Subject: [PATCH] (Ara) Minor fixes

---
 src/arabic/NounAra.gf     | 2 +-
 src/arabic/QuestionAra.gf | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/arabic/NounAra.gf b/src/arabic/NounAra.gf
index d20b3e787..d0b0c5c82 100644
--- a/src/arabic/NounAra.gf
+++ b/src/arabic/NounAra.gf
@@ -90,7 +90,7 @@ lin
     } ;
 
   DetQuant quant num = quant ** {
-    s = \\h,g,c => quant.s ! Pl ! h ! g ! c
+    s = \\h,g,c => quant.s ! sizeToNumber num.n ! h ! g ! c
       ++ num.s ! g ! (toDef quant.d num.n) ! c ;
     n = num.n;
     isNum = -- Num may come from NumCard : Card -> Num
diff --git a/src/arabic/QuestionAra.gf b/src/arabic/QuestionAra.gf
index ecfa1f8c1..c06674501 100644
--- a/src/arabic/QuestionAra.gf
+++ b/src/arabic/QuestionAra.gf
@@ -8,7 +8,7 @@ concrete QuestionAra of Question = CatAra ** open ResAra, ParamX, Prelude, VerbA
       s = \\t,p =>
         table {
           QIndir => "إِذا" ++ cl.s ! t ! p ! Verbal ;
-          QDir => "هَل" ++ cl.s ! t ! p ! Verbal
+          QDir => "هَلْ" ++ cl.s ! t ! p ! Verbal
         }
       };