[project @ 2003-12-16 16:24:55 by simonpj]

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

diff --git a/ghc/compiler/rename/RnHsSyn.lhs b/ghc/compiler/rename/RnHsSyn.lhs
index 5e30960..5d31672 100644 (file)
--- a/ghc/compiler/rename/RnHsSyn.lhs
+++ b/ghc/compiler/rename/RnHsSyn.lhs
@@ -56,6 +56,7 @@ extractHsTyNames ty
     get (HsParTy ty)           = getl ty
     get (HsNumTy n)            = emptyNameSet
     get (HsTyVar tv)          = unitNameSet tv
+    get (HsSpliceTy _)         = emptyNameSet  -- Type splices mention no type variables
     get (HsKindSig ty k)       = getl ty
     get (HsForAllTy _ tvs 
                    ctxt ty)   = (extractHsCtxtTyNames ctxt