diff options
Diffstat (limited to 'compiler/main/Breakpoints.hs')
| -rw-r--r-- | compiler/main/Breakpoints.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs index fccf1a83c7..c4318ca448 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
|