cleand up Structural

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