diff options
Diffstat (limited to 'src-3.0/GF/Compile/Compute.hs')
| -rw-r--r-- | src-3.0/GF/Compile/Compute.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GF/Compile/Compute.hs b/src-3.0/GF/Compile/Compute.hs index a2550201c..e42efba8c 100644 --- a/src-3.0/GF/Compile/Compute.hs +++ b/src-3.0/GF/Compile/Compute.hs @@ -386,10 +386,10 @@ computeTermOpt rec gr = comput True where ---- return $ V ty (map snd cs') return $ T i cs' V ty cs -> do + ty' <- comp g ty -- if there are no variables, don't even go inside cs' <- if (null g) then return cs else mapM (comp g) cs ----- return $ V ty (map snd cs') - return $ V ty cs' + return $ V ty' cs' T i cs -> do pty0 <- getTableType i |