From 1ff5e593a9b957280b6b33ff03a4c1ac4e853c51 Mon Sep 17 00:00:00 2001
From: "mnislaih@gmail.com" <unknown>
Date: Tue, 25 Jul 2006 17:45:37 +0000
Subject: [PATCH] Introduce Unknowns for the closure viewer. Add
 breakpointCond which was missing

---
 GHC/Base.lhs |    2 ++
 GHC/Exts.hs  |    2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 7269c87..2b79b78 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -731,6 +731,8 @@ breakpoint r = r
 breakpointCond :: Bool -> a -> a
 breakpointCond _ r = r
 
+data Unknown 
+
 -- | Constant function.
 const			:: a -> b -> a
 const x _		=  x
diff --git a/GHC/Exts.hs b/GHC/Exts.hs
index 651396a..7b850d4 100644
--- a/GHC/Exts.hs
+++ b/GHC/Exts.hs
@@ -29,7 +29,7 @@ module GHC.Exts
 	Splittable(..),
 
 	-- * Debugging
-	breakpoint,
+	breakpoint, breakpointCond, Unknown,
 
 	-- * Ids with special behaviour
 	lazy, inline,
-- 
1.7.10.4