Commit 6037e956 authored by simonm's avatar simonm
Browse files

[project @ 1999-02-04 11:54:08 by simonm]

Don't go into an infinite loop for errors generated by hPutStr when
outputing an error message.  Use writeErrString__ to output all errors
(this won't generate a Haskell exception).
parent 93938eb1
......@@ -35,10 +35,7 @@ real_handler :: Exception -> IO ()
real_handler ex =
case ex of
ErrorCall s -> reportError s
other -> hPutStr stderr (showsPrec 0 other "\n") >>
_ccall_ stg_exit (1::Int)
-- calls to 'error' are treated slightly differently...
other -> reportError (showsPrec 0 other "\n")
reportError :: String -> IO ()
reportError str = do
Supports Markdown
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