X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnHsSyn.lhs;h=cb0727b7cc3ec456689afc9a513cbf61ff8961b2;hp=5fbe7f7eedfc62a0a27583acb40b6f324bd557b2;hb=6f8ff0bbad3b9fa389c960ad1b5a267a1ae502f1;hpb=4b357e2a7e7eff16cb51b01830636d451664b202

diff --git a/compiler/rename/RnHsSyn.lhs b/compiler/rename/RnHsSyn.lhs
index 5fbe7f7..cb0727b 100644
--- a/compiler/rename/RnHsSyn.lhs
+++ b/compiler/rename/RnHsSyn.lhs
@@ -70,6 +70,7 @@ extractHsTyNames ty
     get (HsTyVar tv)           = unitNameSet tv
     get (HsSpliceTy {})        = emptyNameSet   -- Type splices mention no type variables
     get (HsSpliceTyOut {})     = emptyNameSet   -- Ditto
+    get (HsQuasiQuoteTy {})    = emptyNameSet   -- Ditto
     get (HsKindSig ty _)       = getl ty
     get (HsForAllTy _ tvs
                     ctxt ty)   = (extractHsCtxtTyNames ctxt