workaround for a compilation bug for param defs (to be fixed)

2006-01-19 17:27:46 +00:00
parent 2b2f6e4925
commit c40ad4e79f
3 changed files with 4 additions and 3 deletions
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -185,6 +185,7 @@ checkResInfo gr (c,info) = do
      return (c, ResOper pty' pde')

    ResParam (Yes pcs) -> chIn "parameter type" $ do
+----      mapM ((mapM (computeLType gr . snd)) . snd) pcs
      mapM_ ((mapM_ (checkIfParType gr . snd)) . snd) pcs
      return (c,info)