X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=377e2e5970d96adf914ffdc2126d49b4e1514c72;hb=0ef29fb878dd6517d2716afb056bcf2536c2562e;hp=a1269c4c67e41b1beb11758442c5da02c6267b39;hpb=fb2442c0498868330476f5fdde46339eab68e72d;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index a1269c4..377e2e5 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -433,7 +433,7 @@ hscExpr dflags hst hit pcs0 this_module expr wrap_print
         if (wrap_print && not is_IO_type)
 		then do (new_pcs, maybe_stuff)
 			  <- hscExpr dflags hst hit pcs2 this_module
-				("putStr (show (" ++ expr ++ "))") False
+				("PrelIO.print (" ++ expr ++ ")") False
 		        case maybe_stuff of
 			   Nothing -> return (new_pcs, maybe_stuff)
 			   Just (bcos, _, _) ->