diff options
| author | krasimir <krasimir@chalmers.se> | 2010-08-30 07:54:53 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-08-30 07:54:53 +0000 |
| commit | fad0512c9442c3d9198542fa6578b6117925a3bb (patch) | |
| tree | 54bb09dd55d054f5ac23075faad108ca0969f227 /src/compiler/GF/Compile/GeneratePMCFG.hs | |
| parent | ab9d27f995412a8c35c6f000453aa76ae6db4798 (diff) | |
added missing case for GF.Compile.GeneratePMCFG.evalTerm
Diffstat (limited to 'src/compiler/GF/Compile/GeneratePMCFG.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GeneratePMCFG.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |