From e2b25405bae167eeaff661b753ecef64416f5eac Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 26 Mar 1999 19:45:51 +0000
Subject: [PATCH] [project @ 1999-03-26 19:45:51 by sof] assertError: raise an
AssertionFailed exception
---
ghc/lib/std/PrelErr.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/lib/std/PrelErr.lhs b/ghc/lib/std/PrelErr.lhs
index ee22bdab8158..9415258f030a 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}
--
GitLab