From ae52214482136fdeaaf9d741cf1211cf3cdce5c6 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Fri, 22 Dec 2006 16:55:41 +0000 Subject: [PATCH] Remove a reference to GHC.Exts.Ptr in stage1 Hopefully this will help to restore ability to build HEAD on GHC 5.0x systems --- compiler/deSugar/DsBreakpoint.lhs | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 1.7.10.4