From b34457be5ec12f508b028dae91144e15b7a642ef Mon Sep 17 00:00:00 2001 From: Lemmih Date: Sat, 8 Jul 2006 05:55:28 +0000 Subject: [PATCH] breakpointCond --- GHC/Base.lhs | 3 +++ 1 file changed, 3 insertions(+) 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 -- 1.7.10.4