From cbb38747f86680c1781ec181d0617aa513bbd578 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 27 Oct 2008 09:24:33 +0000 Subject: [PATCH] missing case in PGF generation --- src/GF/Compile/GrammarToGFCC.hs | 2 ++ 1 file changed, 2 insertions(+) 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