diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-09-09 15:33:56 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-09-09 15:33:56 +0000 |
| commit | 8cde25475b389106ceb49dc091ab18d6c7147b79 (patch) | |
| tree | 3db67ddaf77ea8687b932dd4bee4a248df27167e /src/GF/Compile | |
| parent | bc6b91799a9709232ccbd0df5d9684779c1e0395 (diff) | |
missing case in param lookup table in GrammartoGFCC
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/GrammarToGFCC.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs index db5b4376e..5d2b1b408 100644 --- a/src/GF/Compile/GrammarToGFCC.hs +++ b/src/GF/Compile/GrammarToGFCC.hs @@ -358,6 +358,7 @@ paramValues cgr = (labels,untyps,typs) where isParam ty = case ty of Q _ _ -> True + QC _ _ -> True RecType rs -> all isParam (map snd rs) _ -> False |