[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 (file)
--- 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 _)