Commit e2b25405 authored by sof's avatar sof
Browse files

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

assertError: raise an AssertionFailed exception
parent 43c32eb6
...@@ -163,7 +163,7 @@ recUpdError s = throw (RecUpdError (untangle s "Record doesn't contain field( ...@@ -163,7 +163,7 @@ recUpdError s = throw (RecUpdError (untangle s "Record doesn't contain field(
assertError :: String -> Bool -> a -> a assertError :: String -> Bool -> a -> a
assertError str pred v assertError str pred v
| pred = v | pred = v
| otherwise = error (untangle str "Assertion failed") | otherwise = throw (AssertionFailed (untangle str "Assertion failed"))
\end{code} \end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment