projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-10-11 14:46:02 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
typecheck
/
TcHsSyn.lhs
diff --git
a/ghc/compiler/typecheck/TcHsSyn.lhs
b/ghc/compiler/typecheck/TcHsSyn.lhs
index
88b745d
..
494b0d6
100644
(file)
--- a/
ghc/compiler/typecheck/TcHsSyn.lhs
+++ b/
ghc/compiler/typecheck/TcHsSyn.lhs
@@
-454,6
+454,8
@@
zonkExpr env (HsBracketOut body bs)
zonk_b (n,e) = zonkExpr env e `thenM` \ e' ->
returnM (n,e')
zonk_b (n,e) = zonkExpr env e `thenM` \ e' ->
returnM (n,e')
+zonkExpr env (HsReify r) = returnM (HsReify r) -- Nothing to zonk; only top
+ -- level things can be reified (for now)
zonkExpr env (HsSplice n e loc) = WARN( True, ppr e ) -- Should not happen
returnM (HsSplice n e loc)
zonkExpr env (HsSplice n e loc) = WARN( True, ppr e ) -- Should not happen
returnM (HsSplice n e loc)