diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-29 22:32:58 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-29 22:32:58 +0000 |
| commit | 66c04672013a8d031ffe53012ed7e843bb54b750 (patch) | |
| tree | 8adb223aac5774787b7af8b9810c31ef31a3bb23 /src-3.0/GF/Compile/Compute.hs | |
| parent | 35009a2911a35f37bc1a4cdecf2b5fa20b3cc57c (diff) | |
sync with laptop version, irrelevant changes
Diffstat (limited to 'src-3.0/GF/Compile/Compute.hs')
| -rw-r--r-- | src-3.0/GF/Compile/Compute.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src-3.0/GF/Compile/Compute.hs b/src-3.0/GF/Compile/Compute.hs index 73ba202fa..1c68de71b 100644 --- a/src-3.0/GF/Compile/Compute.hs +++ b/src-3.0/GF/Compile/Compute.hs @@ -330,10 +330,10 @@ computeTermOpt rec gr = comput True where ---- return $ V ty (map snd cs') return $ T i cs' V ty cs -> do - -- 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' + 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' cs' T i cs -> do pty0 <- getTableType i |