diff options
Diffstat (limited to 'src/GF/Grammar/Compute.hs')
| -rw-r--r-- | src/GF/Grammar/Compute.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs index 71bed6d49..2ddce3a6c 100644 --- a/src/GF/Grammar/Compute.hs +++ b/src/GF/Grammar/Compute.hs @@ -9,7 +9,7 @@ -- > CVS $Author $ -- > CVS $Revision $ -- --- (Description of the module) +-- Computation of source terms. Used in compilation and in 'cc' command. ----------------------------------------------------------------------------- module Compute where @@ -218,6 +218,9 @@ computeTerm gr = comp where cs' <- if (null g) then return cs else mapPairsM (comp g) cs return $ T i cs' + --- this means some extra work; should implement TSh directly + TSh i cs -> comp g $ T i [(p,v) | (ps,v) <- cs, p <- ps] + T i cs -> do pty0 <- getTableType i ptyp <- comp g pty0 |