From 2faba9011978f29f56bbc27287720a08b08b7adb Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 22 Feb 2008 15:17:50 +0000 Subject: started a directory of grammars testing testgf3 features --- src/GF/Devel/Compile/CheckGrammar.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/GF/Devel/Compile') diff --git a/src/GF/Devel/Compile/CheckGrammar.hs b/src/GF/Devel/Compile/CheckGrammar.hs index 831d0b9b2..1baab392f 100644 --- a/src/GF/Devel/Compile/CheckGrammar.hs +++ b/src/GF/Devel/Compile/CheckGrammar.hs @@ -516,6 +516,8 @@ inferLType gr trm = case trm of Empty -> return (trm, typeStr) + EParam _ cos -> return (trm, typePType) ---- check cos + C s1 s2 -> check2 (flip justCheck typeStr) C s1 s2 typeStr -- cgit v1.2.3