From 415aab7747e18a4bd29c9bc30ae6608e08c69ac4 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 20 May 2005 12:06:00 +0000
Subject: [PATCH] [project @ 2005-05-20 12:06:00 by simonpj] Further wibble to
 preceding GHCi commit

---
 ghc/compiler/typecheck/TcRnDriver.lhs |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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 _)
-- 
1.7.10.4