From e25f1cbea2012aef54f2e00e5eed03fc523d15c2 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 26 Jun 2008 21:40:21 +0000
Subject: [PATCH] debugging arabic

---
 resource/arabic/OrthoAra.gf     | 2 ++
 resource/arabic/ParadigmsAra.gf | 5 +++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/resource/arabic/OrthoAra.gf b/resource/arabic/OrthoAra.gf
index 011ded71b..62ebc9b58 100644
--- a/resource/arabic/OrthoAra.gf
+++ b/resource/arabic/OrthoAra.gf
@@ -1,5 +1,7 @@
 resource OrthoAra = open Prelude, Predef in {
 
+flags coding=utf8 ;
+
   oper
     
     rectifyHmz: Str -> Str = \word ->
diff --git a/resource/arabic/ParadigmsAra.gf b/resource/arabic/ParadigmsAra.gf
index c9816e952..1d41b4f3e 100644
--- a/resource/arabic/ParadigmsAra.gf
+++ b/resource/arabic/ParadigmsAra.gf
@@ -27,7 +27,7 @@ resource ParadigmsAra = open
   Predef, 
   Prelude, 
   MorphoAra,
-  OrthoAra,
+  OrthoAra,(ResAra=ResAra),
   CatAra
   in {
 
@@ -206,7 +206,8 @@ resource ParadigmsAra = open
       lock_V = <>
     } ;
   
-  
+  va : Vowel = ResAra.a ;
+
   v1' : Str ->  Vowel -> Vowel -> Verb = 
     \rootStr,vPerf,vImpf ->
     let { root = mkRoot3 rootStr ;