(Ara) remove extra whitespace

src/arabic/CatAra.gf

@@ -85,7 +85,6 @@ concrete CatAra of Cat = CommonX - [Utt]  ** open ResAra, Prelude, ParamX in {
     V2V, V2S, V2Q = ResAra.Verb ** {c2 : Str} ; --- AR
     V3 = ResAra.Verb ** {c2, c3 : Str} ;
     VV = ResAra.Verb ** {c2 : Str ; isAux : Bool} ; --- IL
---    VV = {s : VVForm => Str ; isAux : Bool} ;
 
     A = ResAra.Adj ;
     A2 = ResAra.Adj ** {c2 : Str} ;

src/arabic/ExtendAra.gf

@@ -16,5 +16,4 @@ concrete ExtendAra of Extend =
 
   lin
     GenNP np = { s = \\_,_,_,_ => np.s ! Gen ; d = Const ; isNum, isPron = False } ;
-
 } ;

src/arabic/MorphoAra.gf

@@ -33,7 +33,7 @@ flags optimize = all ;--noexpand;
           case g of {
             Masc => waHid;
             Fem => waHida
-          } in Al ! state + word + dec1sg ! state ! c;
+          } in defArt state waHid + word + dec1sg ! state ! c;
         n = num;
         d = state;
         isPron = False;

src/arabic/ResAra.gf

@@ -1222,16 +1222,16 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
             NCard => table {
               Masc => \\s,c => (sing wAhid) ! s ! c ;
               --all fem are first declension:
-              Fem => \\s,c => Al ! s + wAhida + dec1sg ! s ! c 
+              Fem => \\s,c => defArt s wAhida + dec1sg ! s ! c
               };
             NOrd => table {
-              Masc => \\s,c => Al ! s + awwal + dec1sg ! s ! c;
+              Masc => \\s,c => defArt s awwal + dec1sg ! s ! c;
               Fem => \\s,c => (sing Ula) ! s ! c
               }
             };
           ten => table {
-            NCard => \\_,s,c => Al ! s + wAhid + m_pl ! Indef ! c;
-            NOrd => \\_,s,c => Al ! s + awwal + m_pl ! Indef ! c
+            NCard => \\_,s,c => defArt s wAhid + m_pl ! Indef ! c;
+            NOrd => \\_,s,c => defArt s awwal + m_pl ! Indef ! c
             }
           }
       };

src/arabic/SymbolAra.gf

@@ -46,4 +46,3 @@ oper
    { pgn = Per3 Masc n ; isPron = False } ;
 
 }
-