From fad0512c9442c3d9198542fa6578b6117925a3bb Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 30 Aug 2010 07:54:53 +0000 Subject: [PATCH] added missing case for GF.Compile.GeneratePMCFG.evalTerm --- src/compiler/GF/Compile/GeneratePMCFG.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs index 7610f286c..6037208e8 100644 --- a/src/compiler/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/GF/Compile/GeneratePMCFG.hs @@ -469,6 +469,7 @@ evalTerm path (V pt ts) = case path of evalTerm path (S term sel) = do v <- evalTerm CNil sel evalTerm (CSel v path) term evalTerm path (FV terms) = variants terms >>= evalTerm path +evalTerm path (EInt n) = return (EInt n) evalTerm path t = error (render (text "evalTerm" <+> parens (ppTerm Unqualified 0 t))) getVarIndex (IA _ i) = i