% -----------------------------------------------------------------------------
-% $Id: Err.lhs,v 1.1 2001/06/28 14:15:03 simonmar Exp $
+% $Id: Err.lhs,v 1.2 2001/07/31 13:11:07 simonmar Exp $
%
% (c) The University of Glasgow, 1994-2000
%
, absentErr, parError -- :: a
, seqError -- :: a
+ , errorCString -- :: Addr# -> a -- Arg is a ptr to C string
, error -- :: String -> a
, assertError -- :: String -> Bool -> a -> a
error :: String -> a
error s = throw (ErrorCall s)
+errorCString :: Addr# -> a
+errorCString s = error (unpackCString s)
+
-- It is expected that compilers will recognize this and insert error
-- messages which are more appropriate to the context in which undefined
-- appears.