X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=a646125a0858e96edf1a81667e9bf3be1c697d53;hb=19b44dcc5e5b9f92735fa99aa45dfaa94777177c;hp=efe58a19b2462f9581ea7b928890883c3db21583;hpb=3f1b316d7035c55cd712cd39a9981339bcef2e8c;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index efe58a1..a646125 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -1056,10 +1056,9 @@ tcGhciStmts stmts
  = do { ioTyCon <- tcLookupTyCon ioTyConName ;
 	ret_id  <- tcLookupId returnIOName ;		-- return @ IO
 	let {
-	    io_ty     = mkTyConApp ioTyCon [] ;
 	    ret_ty    = mkListTy unitTy ;
 	    io_ret_ty = mkTyConApp ioTyCon [ret_ty] ;
-	    tc_io_stmts stmts = tcStmts DoExpr (tcDoStmt io_ty) stmts 
+	    tc_io_stmts stmts = tcStmts DoExpr tcDoStmt stmts 
 				        (emptyRefinement, io_ret_ty) ;
 
 	    names = map unLoc (collectLStmtsBinders stmts) ;