[project @ 2002-02-11 08:20:38 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 61a14ef..2d544f5 100644 (file)
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -115,6 +115,10 @@ rnHsType doc (HsListTy ty)
   = rnHsType doc ty                            `thenRn` \ ty' ->
     returnRn (HsListTy ty')
 
+rnHsType doc (HsPArrTy ty)
+  = rnHsType doc ty                            `thenRn` \ ty' ->
+    returnRn (HsPArrTy ty')
+
 -- Unboxed tuples are allowed to have poly-typed arguments.  These
 -- sometimes crop up as a result of CPR worker-wrappering dictionaries.
 rnHsType doc (HsTupleTy (HsTupCon _ boxity arity) tys)