X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnTypes.lhs;h=35ab81b3322236a4c289d6d00933977e89a8f546;hb=2205f0ceeb65d8acb7db953bf4fd2ad673dc55ee;hp=fd6a2185251854eddad737d6c41f931fb4a7ea2c;hpb=ef2b170c6298b4826d3b56465a3c1438b5be7307;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index fd6a218..35ab81b 100644
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -110,6 +110,9 @@ rnHsType doc (HsOpTy ty1 op ty2)
     lookupTyFixityRn op'	`thenRn` \ fix ->
     mkHsOpTyRn op' fix ty1' ty2'
 
+rnHsType doc (HsParTy ty)
+  = rnHsType doc ty 	        `thenRn` \ ty' ->
+    returnRn (HsParTy ty')
 
 rnHsType doc (HsNumTy i)
   | i == 1    = returnRn (HsNumTy i)
@@ -214,8 +217,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