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

[ghc-hetmet.git] / ghc / compiler / typecheck / TcExpr.lhs

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 60226de..151a62a 100644 (file)
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -574,11 +574,9 @@ tc_expr (PArrSeqIn _) _
 \begin{code}
 #ifdef GHCI    /* Only if bootstrapped */
        -- Rename excludes these cases otherwise
-
-tc_expr (HsSplice n expr) res_ty = tcSpliceExpr n expr res_ty
-tc_expr (HsBracket brack) res_ty = do
-  e <- tcBracket brack res_ty
-  return (unLoc e)
+tc_expr (HsSpliceE splice) res_ty = tcSpliceExpr splice res_ty
+tc_expr (HsBracket brack)  res_ty = do { e <- tcBracket brack res_ty
+                                       ; return (unLoc e) }
 #endif /* GHCI */
 \end{code}