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
handleBreakpoint :: forall b. Session -> [(Id,HValue)] -> BkptLocation a -> String -> b -> IO b\r
, isAutoBkptEnabled :: Session -> BkptLocation a -> IO Bool\r
isAutoBkptEnabled = \ _ _ -> return False,\r
handleBreakpoint = \_ _ _ _ b -> putStrLn "null Bkpt Handler" >> return b\r
}\r
+#endif\r
\r
type BkptLocation a = (a, SiteNumber)\r
type SiteNumber = Int\r
| otherwise = Nothing\r
#else \r
lookupBogusBreakpointVal _ = Nothing\r
-#endif //GHCI\r
+#endif /* GHCI */\r
+\r