From: Lemmih <lemmih@gmail.com>
Date: Sat, 8 Jul 2006 05:55:28 +0000 (+0000)
Subject: breakpointCond
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b34457be5ec12f508b028dae91144e15b7a642ef;p=haskell-directory.git

breakpointCond
---

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index a181cf7..cf3c5a3 100644
--- 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