projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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 ;
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)
case mb_d of
Just (MkC d) -> return d
Nothing -> pprPanic "dsReify" (ppr r)