From: simonpj <unknown>
Date: Fri, 20 May 2005 12:06:00 +0000 (+0000)
Subject: [project @ 2005-05-20 12:06:00 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~502
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=415aab7747e18a4bd29c9bc30ae6608e08c69ac4;p=ghc-hetmet.git

[project @ 2005-05-20 12:06:00 by simonpj]
Further wibble to preceding GHCi commit
---

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index e08dd71..0dfd197 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -949,14 +949,12 @@ mkPlan (L loc (ExprStmt expr _ _))
 	--	[it <- e; print it]	but not if it::()
 	--	[it <- e]		
 	--	[let it = e; print it]	
-	--	[let it = e]
 	; runPlans [do { stuff@([it_id], _) <- tcGhciStmts [bind_stmt, print_it]
 		       ; it_ty <- zonkTcType (idType it_id)
 		       ; ifM (isUnitTy it_ty) failM
 		       ; return stuff },
 		    tcGhciStmts [bind_stmt],
-		    tcGhciStmts [let_stmt, print_it],
-		    tcGhciStmts [let_stmt]
+		    tcGhciStmts [let_stmt, print_it]
 	  ]}
 
 mkPlan stmt@(L loc _)