Adjust code from manual merges

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

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index b1b0118..ecb3c33 100644 (file)
--- a/compiler/main/Breakpoints.hs
+++ b/compiler/main/Breakpoints.hs
@@ -20,6 +20,7 @@ import PrelNames
 \r
 import GHC.Exts                  ( unsafeCoerce# )\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
@@ -29,6 +30,7 @@ nullBkptHandler = BkptHandler {
     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