From 43c32eb68ab52275edf96b7f712d9c80ef68dfee Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 26 Mar 1999 19:43:43 +0000
Subject: [PATCH] [project @ 1999-03-26 19:43:43 by sof] re-export
 PrelGHC.assert

---
 ghc/lib/exts/Exception.lhs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ghc/lib/exts/Exception.lhs b/ghc/lib/exts/Exception.lhs
index 0ad280578ca2..2917873e875a 100644
--- a/ghc/lib/exts/Exception.lhs
+++ b/ghc/lib/exts/Exception.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: Exception.lhs,v 1.6 1999/03/16 13:20:11 simonm Exp $
+% $Id: Exception.lhs,v 1.7 1999/03/26 19:43:43 sof Exp $
 %
 % (c) The GRAP/AQUA Project, Glasgow University, 1998
 %
@@ -42,6 +42,10 @@ module Exception (
 
 	throwDyn, 	-- :: Typeable ex => ex -> b
 	catchDyn, 	-- :: Typeable ex => IO a -> (ex -> IO a) -> IO a
+	
+	-- Assertions
+
+	assert,		-- :: Bool -> a -> a
 
 	-- Utilities
 		
@@ -57,7 +61,7 @@ import PreludeBuiltin hiding (catch)
 import Prelude        hiding (catch)
 #else
 import Prelude hiding (catch)
-import PrelGHC (catch#)
+import PrelGHC (catch#, assert)
 import PrelException hiding (catch)
 import PrelConc ( raiseInThread )
 #endif
-- 
GitLab