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
#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
-#endif //GHCI\r
+#endif /* GHCI */\r
+\r