X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSplice.lhs;h=7e46e52d4a38c3abca5cd277b6faf26b06720c47;hp=2a3bce62f6de3c78a82e105af79acc4360c3b879;hb=94bf0d3604ff0d2ecab246924af712bdd1c29a40;hpb=2493b18037055a5c284563d10931386e589a79b0

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index 2a3bce6..7e46e52 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -787,7 +787,7 @@ runMeta show_code run_and_convert expr
 	; hsc_env <- getTopEnv
 	; src_span <- getSrcSpanM
 	; either_hval <- tryM $ liftIO $
-			 HscMain.compileExpr hsc_env src_span ds_expr
+			 HscMain.hscCompileCoreExpr hsc_env src_span ds_expr
 	; case either_hval of {
 	    Left exn   -> failWithTc (mk_msg "compile and link" exn) ;
 	    Right hval -> do