From: mnislaih@gmail.com <unknown>
Date: Tue, 25 Jul 2006 17:45:37 +0000 (+0000)
Subject: Introduce Unknowns for the closure viewer. Add breakpointCond which was missing
X-Git-Tag: directory_2007-05-24~99
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1ff5e593a9b957280b6b33ff03a4c1ac4e853c51;p=haskell-directory.git

Introduce Unknowns for the closure viewer. Add breakpointCond which was missing
---

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,