(Ara) Add هَل in QuestCl, not in UseQCl

src/arabic/ExtendAra.gf

@@ -0,0 +1,20 @@
+--# -path=.:../common:../abstract
+
+concrete ExtendAra of Extend =
+  CatAra ** ExtendFunctor - [
+    GenNP, SlashBareV2S, PredAPVP, GenModNP, ExistsNP,
+    StrandRelSlash, ExistPluralCN, ExistMassCN, ExistCN, EmptyRelSlash, DetNPMasc, DetNPFem,
+    ComplBareVS, ComplDirectVS, ComplDirectVQ
+]
+  with (Grammar=GrammarAra)
+  ** open
+
+    Prelude,
+    ResAra
+  
+  in {
+
+  lin
+    GenNP np = { s = \\_,_,_ => np.s ; d = Const ; isNum, isPron = False } ;
+
+} ;

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 
         }
       };
 

src/arabic/SentenceAra.gf

@@ -120,7 +120,7 @@ concrete SentenceAra of Sentence = CatAra ** open
     UseQCl t ap qcl = --{s = cl.s ! t ! p ! Verbal } ;
       {s = 
          table {
-           QDir => "هَل" ++ qcl.s ! ResAra.Pres ! ap.p ! QDir;
+           QDir => qcl.s ! ResAra.Pres ! ap.p ! QDir;
            QIndir =>  qcl.s ! ResAra.Pres ! ap.p ! QIndir
          }
 {-         case t of {