Teach darcs-all how to get testsuite and nofib

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

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index ecb3c33..fccf1a8 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
@@ -52,4 +52,5 @@ lookupBogusBreakpointVal name
   | otherwise = Nothing\r
 #else \r
 lookupBogusBreakpointVal _ = Nothing\r
-#endif //GHCI\r
+#endif /* GHCI */\r
+\r