[project @ 1999-03-26 19:45:51 by sof]

assertError: raise an AssertionFailed exception

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}