diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-27 09:24:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-27 09:24:33 +0000 |
| commit | 970e69add920a49491fb9e55c381f43900c19b27 (patch) | |
| tree | aa34b83267cd9d31ca9916679e7c84187d7e352b | |
| parent | 3fed05e1210fd6248c236f5d96b4c0ed154d9bfd (diff) | |
missing case in PGF generation
| -rw-r--r-- | src/GF/Compile/GrammarToGFCC.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs index 63491f94e..4b5cf24bb 100644 --- a/src/GF/Compile/GrammarToGFCC.hs +++ b/src/GF/Compile/GrammarToGFCC.hs @@ -194,6 +194,8 @@ mkCType t = case t of Table pt vt -> case pt of EInt i -> C.R $ replicate (1 + fromInteger i) $ mkCType vt RecType rs -> mkCType $ foldr Table vt (map snd rs) + _ | Just i <- GM.isTypeInts pt -> C.R $ replicate (fromInteger i) $ mkCType vt + Sort s | s == cStr -> C.S [] --- Str only _ | Just i <- GM.isTypeInts t -> C.C $ fromInteger i _ -> error $ "mkCType " ++ show t |