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

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index b1b0118..fccf1a8 100644
--- a/compiler/main/Breakpoints.hs
+++ b/compiler/main/Breakpoints.hs
@@ -18,8 +18,9 @@ import Name
 import Var                       ( Id )
 import PrelNames
 
-import GHC.Exts                  ( unsafeCoerce# )
+import GHC.Exts
 
+#ifdef GHCI
 data BkptHandler a = BkptHandler {
      handleBreakpoint  :: forall b. Session -> [(Id,HValue)] -> BkptLocation a ->  String -> b -> IO b
    , isAutoBkptEnabled :: Session -> BkptLocation a -> IO Bool
@@ -29,6 +30,7 @@ nullBkptHandler = BkptHandler {
     isAutoBkptEnabled = \ _ _     -> return False,
     handleBreakpoint  = \_ _ _ _ b -> putStrLn "null Bkpt Handler" >> return b
                               }
+#endif
 
 type BkptLocation a = (a, SiteNumber)
 type SiteNumber   = Int
@@ -50,4 +52,5 @@ lookupBogusBreakpointVal name
   | otherwise = Nothing
 #else 
 lookupBogusBreakpointVal _ = Nothing
-#endif //GHCI
+#endif /* GHCI */
+