From 8894145751d8c7841b25e3fe561b42f65982d057 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Thu, 11 Jan 2007 17:25:55 +0000 Subject: [PATCH] Too agressive breakpoint coalescing politics --- compiler/deSugar/DsBreakpoint.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4