From 1c7a878713f1429ed4964a8bc47249d44d23a770 Mon Sep 17 00:00:00 2001
From: Lemmih <lemmih@gmail.com>
Date: Fri, 7 Apr 2006 12:58:27 +0000
Subject: [PATCH] GHC.Base.breakpoint

---
 GHC/Base.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 8278dbb..2cca920 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -711,7 +711,10 @@ lazy x = x
 --	defined here in Base.lhs
 assert :: Bool -> a -> a
 assert pred r = r
- 
+
+breakpoint :: a -> a
+breakpoint r = r
+
 -- | Constant function.
 const			:: a -> b -> a
 const x _		=  x
-- 
1.7.10.4