diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-02-22 15:17:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-02-22 15:17:50 +0000 |
| commit | 2faba9011978f29f56bbc27287720a08b08b7adb (patch) | |
| tree | faf7919dc7068cb3f91efa033e851eccf17bff89 /src/GF/Devel/Compile | |
| parent | 9e6064709f621c1489f18ee94612226014646a9a (diff) | |
started a directory of grammars testing testgf3 features
Diffstat (limited to 'src/GF/Devel/Compile')
| -rw-r--r-- | src/GF/Devel/Compile/CheckGrammar.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |