From bd23dfa08da6681807ef8d2a48b110b2fc3151d2 Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Tue, 7 Mar 2023 22:20:28 +0800
Subject: [PATCH] fix A2 to show NP in Malay RGL

---
 src/malay/AdjectiveMay.gf | 4 +---
 src/malay/ResMay.gf       | 4 +++-
 src/malay/VerbMay.gf      | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/malay/AdjectiveMay.gf b/src/malay/AdjectiveMay.gf
index 621d71661..bee168c43 100644
--- a/src/malay/AdjectiveMay.gf
+++ b/src/malay/AdjectiveMay.gf
@@ -20,10 +20,8 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
     } ;
 
   -- : A2 -> NP -> AP ;  -- married to her
-  ComplA2 a2 np = a2 ** {
-    compl = np.s
-   } ;
 
+  ComplA2 a np = {s = a.s ++ np.s ! Bare} ;
   -- : A2 -> AP ;        -- married to itself
   -- ReflA2 a2 = a2 ** { } ;
 
diff --git a/src/malay/ResMay.gf b/src/malay/ResMay.gf
index f974f1e7f..65863162b 100644
--- a/src/malay/ResMay.gf
+++ b/src/malay/ResMay.gf
@@ -206,7 +206,9 @@ oper
 
   mkAdj : Str -> Adjective = \str -> {s = str} ;
 
-  AdjPhrase : Type = Adjective ; -- ** {compar : Str} ;
+  AdjPhrase = {
+    s : Str
+    } ; -- ** {compar : Str} ;
 --------------------------------------------------------------------------------
 -- Verbs
 
diff --git a/src/malay/VerbMay.gf b/src/malay/VerbMay.gf
index d071aac2e..64b6ccbb4 100644
--- a/src/malay/VerbMay.gf
+++ b/src/malay/VerbMay.gf
@@ -118,7 +118,7 @@ lin
   -- SlashV2VNP v2v np vps =
 
   -- : Comp -> VP ;
-  UseComp comp = comp ;
+  UseComp comp = comp;
 
   -- : VP -> Adv -> VP ;  -- sleep here
   AdvVP vp adv = vp ** {