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

2026-04-22 03:09:33 -06:00 · 2006-01-19 17:27:46 +00:00
parent ae1d654a5b
commit 62105801a1
1 changed files with 1 additions and 0 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)