breakpointCond

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index a181cf7..cf3c5a3 100644 (file)
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -730,6 +730,9 @@ assert pred r = r
 breakpoint :: a -> a
 breakpoint r = r
 
+breakpointCond :: Bool -> a -> a
+breakpointCond _ r = r
+
 -- | Constant function.
 const                  :: a -> b -> a
 const x _              =  x