From 8dc6eb3d7db38026d0f2cf32d80fdb857c05c11f Mon Sep 17 00:00:00 2001 From: simonpj Date: Tue, 28 May 2002 08:38:19 +0000 Subject: [PATCH] [project @ 2002-05-28 08:38:19 by simonpj] Fix assert --- ghc/compiler/rename/RnTypes.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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 -- 1.7.10.4