diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2006-12-22 16:55:41 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2006-12-22 16:55:41 +0000 |
| commit | ae52214482136fdeaaf9d741cf1211cf3cdce5c6 (patch) | |
| tree | 9e8722678138bbaab7b79d308031924bafcd0a6e | |
| parent | e940d0ad629747fd30d1dc318a4c1ab893ac7222 (diff) | |
| download | haskell-ae52214482136fdeaaf9d741cf1211cf3cdce5c6.tar.gz | |
Remove a reference to GHC.Exts.Ptr in stage1
Hopefully this will help to restore ability to build HEAD on GHC 5.0x systems
| -rw-r--r-- | compiler/deSugar/DsBreakpoint.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/deSugar/DsBreakpoint.lhs b/compiler/deSugar/DsBreakpoint.lhs index dbf7ed2300..b0e726537c 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) |