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

[project @ 1999-03-26 19:45:51 by sof]
assertError: raise an AssertionFailed exception
---

diff --git a/ghc/lib/std/PrelErr.lhs b/ghc/lib/std/PrelErr.lhs
index ee22bda..9415258 100644
--- a/ghc/lib/std/PrelErr.lhs
+++ b/ghc/lib/std/PrelErr.lhs
@@ -163,7 +163,7 @@ recUpdError 		 s = throw (RecUpdError (untangle s "Record doesn't contain field(
 assertError :: String -> Bool -> a -> a
 assertError str pred v 
   | pred      = v
-  | otherwise = error (untangle str "Assertion failed")
+  | otherwise = throw (AssertionFailed (untangle str "Assertion failed"))
 
 \end{code}