From: sof <unknown>
Date: Fri, 26 Mar 1999 19:43:43 +0000 (+0000)
Subject: [project @ 1999-03-26 19:43:43 by sof]
X-Git-Tag: Approximately_9120_patches~6346
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=43c32eb68ab52275edf96b7f712d9c80ef68dfee;p=ghc-hetmet.git

[project @ 1999-03-26 19:43:43 by sof]
re-export PrelGHC.assert
---

diff --git a/ghc/lib/exts/Exception.lhs b/ghc/lib/exts/Exception.lhs
index 0ad2805..2917873 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