From 915d0f0d502c35ee2ed22ab43653b1de6443ed3f Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Fri, 2 Aug 2019 12:17:11 +0200
Subject: [PATCH] added Ara and Eus into ResourceDemo

---
 src/demo/Makefile           | 4 ++--
 src/demo/MkMini.hs          | 9 ++++-----
 src/demo/ResourceDemoEng.gf | 2 +-
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/src/demo/Makefile b/src/demo/Makefile
index 907a080c9..61e554f70 100644
--- a/src/demo/Makefile
+++ b/src/demo/Makefile
@@ -6,7 +6,7 @@ src:
 	runghc MkMini.hs
 
 compdemo:
-	$(compile) Afr Bul Cat Chi Dan Dut Eng Est Fin Fre Ger Gre Hin Ice Ita Jpn Lav Mlt Mon Nep Nor Nno Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd
+	$(compile) Afr Ara Bul Cat Chi Dan Dut Eng Est Eus Fin Fre Ger Gre Hin Ice Ita Jpn Lav Mlt Mon Nep Nor Nno Pes Pnb Pol Por Ron Rus Snd Spa Swe Tha Urd
 
 linkdemo:
-	$(compile) -link Afr Bul Cat Chi Dan Dut Eng Est Fin Fre Ger Gre Hin Ice Ita Jpn Lav Mlt Mon Nep Nor Nno Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd
+	$(compile) -link Afr Ara Bul Cat Chi Dan Dut Eng Est Eus Fin Fre Ger Gre Hin Ice Ita Jpn Lav Mlt Mon Nep Nor Nno Pes Pnb Pol Por Ron Rus Snd Spa Swe Tha Urd
diff --git a/src/demo/MkMini.hs b/src/demo/MkMini.hs
index 142c73e33..cec8e0617 100644
--- a/src/demo/MkMini.hs
+++ b/src/demo/MkMini.hs
@@ -1,11 +1,10 @@
 src = "Eng"
 langs = [
-  "Afr","Bul","Cat","Chi","Dan","Dut",
-  "Est","Fin","Fre","Ger","Gre","Hin",
+  "Afr","Ara","Bul","Cat","Chi","Dan","Dut",
+  "Est","Eus","Fin","Fre","Ger","Gre","Hin",
   "Ice","Ita","Jpn","Lav","Mlt","Mon",
-  "Nep","Nor","Nno","Pes","Pol","Pnb",
-  "Ron","Rus","Snd","Spa","Swe","Tha",
-  "Urd"
+  "Nep","Nor","Nno","Pes","Pol","Por","Pnb",
+  "Ron","Rus","Snd","Spa","Swe","Tha","Urd"
   ]
 
 file lng = "ResourceDemo" ++ lng ++ ".gf"
diff --git a/src/demo/ResourceDemoEng.gf b/src/demo/ResourceDemoEng.gf
index 320ba9590..2bec13faa 100644
--- a/src/demo/ResourceDemoEng.gf
+++ b/src/demo/ResourceDemoEng.gf
@@ -172,6 +172,6 @@ lin
    numeralDet n = S.mkDet <n : Numeral> ;
    RSubjS subj a b = mkS (S.mkAdv <subj : Subj> <a : S>) b ;
    SlashV2 np v2 = mkClSlash np v2 ;
-   SlashPrep cl p = mkClSlash (lin Cl cl) <p : Prep> ;
+----   SlashPrep cl p = mkClSlash (lin Cl cl) <p : Prep> ;
    RAdvCN cn p pp = mkCN <lin CN cn : CN> (mkAdv <p : Prep> <pp : NP>) ;
 }