X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FBreakpoints.hs;fp=compiler%2Fmain%2FBreakpoints.hs;h=c4318ca448eeab9a96eb1c10ff19d0c6fa9ed133;hb=2bbec92eb827c0d70b25f4006a954d95ae3088bf;hp=fccf1a83c7c84c08f2027f0f85e475b3bf1de813;hpb=1c7caf1c6d5abacb2af32d8224241c575829b9fd;p=ghc-hetmet.git

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index fccf1a8..c4318ca 100644
--- a/compiler/main/Breakpoints.hs
+++ b/compiler/main/Breakpoints.hs
@@ -46,9 +46,9 @@ noDbgSites = []
 #ifdef GHCI
 lookupBogusBreakpointVal :: Name -> Maybe HValue
 lookupBogusBreakpointVal name 
-  | name == breakpointJumpName     = Just$ unsafeCoerce# (\_ _ _ _ a->a)
-  | name == breakpointAutoJumpName = Just$ unsafeCoerce# (\_ _ _ _ a->a)
-  | name == breakpointCondJumpName = Just$ unsafeCoerce# (\_ _ _ _ _ a->a)
+  | name == breakpointJumpName     = Just$ unsafeCoerce# (\_ _ a->a)
+  | name == breakpointAutoJumpName = Just$ unsafeCoerce# (\_ _ a->a)
+  | name == breakpointCondJumpName = Just$ unsafeCoerce# (\_ _ _ a->a)
   | otherwise = Nothing
 #else 
 lookupBogusBreakpointVal _ = Nothing