cleand up Structural

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