[project @ 2003-09-23 14:32:57 by simonmar]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsMeta.hs

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index 4b179f5..51edae1 100644 (file)
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -113,7 +113,7 @@ dsReify (ReifyOut ReifyType name)
 
 dsReify r@(ReifyOut ReifyDecl name)
   = do { thing <- dsLookupGlobal name ;
-        mb_d <- repTyClD (ifaceTyThing thing) ;
+        mb_d <- repTyClD (ifaceTyThing True{-omit pragmas-} thing) ;
         case mb_d of
           Just (MkC d) -> return d 
           Nothing      -> pprPanic "dsReify" (ppr r)