[project @ 2002-06-07 07:16:04 by chak]

[ghc-hetmet.git] / ghc / compiler / rename / RnTypes.lhs

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index fd6a218..35ab81b 100644 (file)
--- 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