From 2de326e8a350c190f329269389443cb09c45bd2b Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Wed, 25 Apr 2018 08:42:20 +0200
Subject: [PATCH] more cases to Chi.mkA2

---
 src/chinese/ParadigmsChi.gf | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/chinese/ParadigmsChi.gf b/src/chinese/ParadigmsChi.gf
index 562cd38d1..79f5e1ab9 100644
--- a/src/chinese/ParadigmsChi.gf
+++ b/src/chinese/ParadigmsChi.gf
@@ -35,8 +35,15 @@ oper
       = \a,b -> lin A (mkAdj a b) ;
     } ; 
 
-  mkA2 : Str -> A2 = \a -> lin A2 (simpleAdj a ** {c2 = emptyPrep}) ;
-
+  mkA2 = overload {
+    mkA2 : Str -> A2
+      = \a -> lin A2 (simpleAdj a ** {c2 = emptyPrep}) ;
+    mkA2 : A -> A2
+      = \a -> lin A2 (a ** {c2 = emptyPrep}) ;
+    mkA2 : A -> Prep -> A2
+      = \a,p -> lin A2 (a ** {c2 = p}) ;
+    } ;
+    
   mkV = overload {      
     mkV : (walk : Str) -> V 
       = \walk -> case walk of {