From: simonpj <unknown>
Date: Tue, 28 May 2002 08:38:19 +0000 (+0000)
Subject: [project @ 2002-05-28 08:38:19 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~2010
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8dc6eb3d7db38026d0f2cf32d80fdb857c05c11f;p=ghc-hetmet.git

[project @ 2002-05-28 08:38:19 by simonpj]
Fix assert
---

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index fd6a218..74fc881 100644
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -214,8 +214,7 @@ mkHsOpTyRn op1 fix1 ty1 ty2@(HsOpTy ty21 op2 ty22)
     returnRn (HsOpTy ty1 op1 ty2)
 
 mkHsOpTyRn op fix ty1 ty2 			-- Default case, no rearrangment
-  = ASSERT( not_op_ty ty1 )
-    returnRn (HsOpTy ty1 op ty2)
+  = returnRn (HsOpTy ty1 op ty2)
 
 mkHsFunTyRn ty1 ty2			-- Precedence of function arrow is 0
   = returnRn (HsFunTy ty1 ty2)		-- so no rearrangement reqd.  Change