X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnHsSyn.lhs;h=6b6d949d79cb98b0c8a3668a3828356a72c34889;hp=a65430a3d89fd23dc7524d172a412501aab9405a;hb=2205f0ceeb65d8acb7db953bf4fd2ad673dc55ee;hpb=f3d24c87016078e0e50fa80575e04f340f86acb4

diff --git a/ghc/compiler/rename/RnHsSyn.lhs b/ghc/compiler/rename/RnHsSyn.lhs
index a65430a..6b6d949 100644
--- a/ghc/compiler/rename/RnHsSyn.lhs
+++ b/ghc/compiler/rename/RnHsSyn.lhs
@@ -84,6 +84,7 @@ extractHsTyNames ty
     get (HsOpTy ty1 tycon ty2) = get ty1 `unionNameSets` get ty2 `unionNameSets`
 				 case tycon of { HsTyOp n -> unitNameSet n ; 
 						 HsArrow  -> emptyNameSet }
+    get (HsParTy ty)           = get ty
     get (HsNumTy n)            = emptyNameSet
     get (HsTyVar tv)	       = unitNameSet tv
     get (HsKindSig ty k)       = get ty