From c0322a4ca55b1d85c3fb08a4780af3ed5890435a Mon Sep 17 00:00:00 2001 From: simonpj Date: Sat, 31 Aug 2002 08:37:56 +0000 Subject: [PATCH] [project @ 2002-08-31 08:37:56 by simonpj] Remove GHC.Base.assert until I can figure out what happened --- GHC/Base.lhs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/GHC/Base.lhs b/GHC/Base.lhs index e3bc346..7ee7d7d 100644 --- a/GHC/Base.lhs +++ b/GHC/Base.lhs @@ -595,10 +595,14 @@ 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