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 (file)
--- 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 (file)
--- 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,