[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / Simplify.lhs

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index 26d4e5a..46cd242 100644 (file)
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -355,7 +355,7 @@ we can pass them all to @mkCoTyLamTryingEta@.
 
 \begin{code} 
 simplExpr env (CoTyLam tyvar body) (TypeArg ty : args)
-  = ASSERT(not (isPrimType ty))
+  = -- ASSERT(not (isPrimType ty))
     let
        new_env = extendTyEnv env tyvar ty
     in