From: Pepe Iborra <mnislaih@gmail.com>
Date: Fri, 22 Dec 2006 16:55:41 +0000 (+0000)
Subject: Remove a reference to GHC.Exts.Ptr in stage1
X-Git-Tag: 2007-02-05~163
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ae52214482136fdeaaf9d741cf1211cf3cdce5c6

Remove a reference to GHC.Exts.Ptr in stage1

Hopefully this will help to restore ability to build HEAD on GHC 5.0x systems
---

diff --git a/compiler/deSugar/DsBreakpoint.lhs b/compiler/deSugar/DsBreakpoint.lhs
index dbf7ed2..b0e7265 100644
--- a/compiler/deSugar/DsBreakpoint.lhs
+++ b/compiler/deSugar/DsBreakpoint.lhs
@@ -51,6 +51,7 @@ import Data.IORef
 import Foreign.StablePtr
 import GHC.Exts
 
+#ifdef GHCI
 mkBreakpointExpr :: SrcSpan -> Id -> DsM (LHsExpr Id)
 mkBreakpointExpr loc bkptFuncId = do
         scope' <- getLocalBindsDs
@@ -99,6 +100,9 @@ mkBreakpointExpr loc bkptFuncId = do
           srcSpanLit :: SrcSpan -> HsExpr Id
           srcSpanLit span = HsLit (HsString (mkFastString (showSDoc (ppr span))))
           instrumenting = idName bkptFuncId == breakpointAutoName
+#else
+mkBreakpointExpr = undefined    -- A stage1 ghc doesn't care about breakpoints
+#endif
 
 debug_enabled :: DsM Bool
 #if defined(GHCI) && defined(DEBUGGER)