X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FBreakpoints.hs;h=fccf1a83c7c84c08f2027f0f85e475b3bf1de813;hb=5d0b2bba1dfc0b2786162927ed7b3d4911f1cc54;hp=ecb3c3317b5bfb0a017968abc6dc4d54865bff4a;hpb=989cfb23660ecefe7e414a1ca1f3004e820ef50b;p=ghc-hetmet.git

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index ecb3c33..fccf1a8 100644
--- a/compiler/main/Breakpoints.hs
+++ b/compiler/main/Breakpoints.hs
@@ -18,7 +18,7 @@ import Name
 import Var                       ( Id )
 import PrelNames
 
-import GHC.Exts                  ( unsafeCoerce# )
+import GHC.Exts
 
 #ifdef GHCI
 data BkptHandler a = BkptHandler {
@@ -52,4 +52,5 @@ lookupBogusBreakpointVal name
   | otherwise = Nothing
 #else 
 lookupBogusBreakpointVal _ = Nothing
-#endif //GHCI
+#endif /* GHCI */
+