remove the ITBL_SIZE constants which were wrong, but fortunately unused

[ghc-hetmet.git] / compiler / main / Breakpoints.hs

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index 34e07fb..c4318ca 100644 (file)
--- a/compiler/main/Breakpoints.hs
+++ b/compiler/main/Breakpoints.hs
@@ -18,7 +18,7 @@ import Name
 import Var                       ( Id )\r
 import PrelNames\r
 \r
-import GHC.Exts                  ( unsafeCoerce# )\r
+import GHC.Exts\r
 \r
 #ifdef GHCI\r
 data BkptHandler a = BkptHandler {\r
@@ -46,9 +46,9 @@ noDbgSites = []
 #ifdef GHCI\r
 lookupBogusBreakpointVal :: Name -> Maybe HValue\r
 lookupBogusBreakpointVal name \r
-  | name == breakpointJumpName     = Just$ unsafeCoerce# (\_ _ _ _ a->a)\r
-  | name == breakpointAutoJumpName = Just$ unsafeCoerce# (\_ _ _ _ a->a)\r
-  | name == breakpointCondJumpName = Just$ unsafeCoerce# (\_ _ _ _ _ a->a)\r
+  | name == breakpointJumpName     = Just$ unsafeCoerce# (\_ _ a->a)\r
+  | name == breakpointAutoJumpName = Just$ unsafeCoerce# (\_ _ a->a)\r
+  | name == breakpointCondJumpName = Just$ unsafeCoerce# (\_ _ _ a->a)\r
   | otherwise = Nothing\r
 #else \r
 lookupBogusBreakpointVal _ = Nothing\r