From: Pepe Iborra <mnislaih@gmail.com>
Date: Thu, 11 Jan 2007 17:25:55 +0000 (+0000)
Subject: Too agressive breakpoint coalescing politics
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8894145751d8c7841b25e3fe561b42f65982d057;p=ghc-hetmet.git

Too agressive breakpoint coalescing politics
---

diff --git a/compiler/deSugar/DsBreakpoint.lhs b/compiler/deSugar/DsBreakpoint.lhs
index b0e7265..eac7e48 100644
--- a/compiler/deSugar/DsBreakpoint.lhs
+++ b/compiler/deSugar/DsBreakpoint.lhs
@@ -126,7 +126,7 @@ isInstrumentationSpot (L loc e) = do
 
 isRedundant HsLet  {} = True
 isRedundant HsDo   {} = True
-isRedundant HsCase {} = True
+isRedundant HsCase {} = False
 isRedundant     _     = False
 
 dynBreakpoint :: SrcSpan -> DsM (LHsExpr Id)