From c83f5ad9dbc5859bec565e4a6593c8cb105b5b64 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 13 Sep 2002 18:21:46 +0000
Subject: [PATCH] [project @ 2002-09-13 18:21:46 by panne] It looks like we
 need assert again...?!

---
 GHC/Base.lhs |    8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 7ee7d7d..e3bc346 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -595,14 +595,10 @@ id x			=  x
 lazy :: a -> a
 lazy x = x
 
--- 	SLPJ: this was transferred from the TH branch
---	and I've forgotten what it was for... so I'll
---	comment it back out for now.  It conflicts with
---	'assert' in GHC.Prim
 -- Assertion function. This simply ignores its boolean argument.
 -- The compiler may rewrite it to (assertError line)
--- assert :: Bool -> a -> a
--- assert pred r = r
+assert :: Bool -> a -> a
+assert pred r = r
  
 -- constant function
 const			:: a -> b -> a
-- 
1.7.10.4