From: simonpj <unknown>
Date: Tue, 24 Jul 2001 16:09:48 +0000 (+0000)
Subject: [project @ 2001-07-24 16:09:48 by simonpj]
X-Git-Tag: Approximately_9120_patches~1425
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9acd03bddf3d603cf3df5d9e03937588e0e2dfb4;p=ghc-hetmet.git

[project @ 2001-07-24 16:09:48 by simonpj]
wibble
---

diff --git a/ghc/lib/std/PrelErr.lhs b/ghc/lib/std/PrelErr.lhs
index 0523aae..53daf03 100644
--- a/ghc/lib/std/PrelErr.lhs
+++ b/ghc/lib/std/PrelErr.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelErr.lhs,v 1.20 2001/07/24 16:04:21 simonpj Exp $
+% $Id: PrelErr.lhs,v 1.21 2001/07/24 16:09:48 simonpj Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -52,7 +52,7 @@ error :: String -> a
 error s = throw (ErrorCall s)
 
 errorCString :: Addr# -> a
-errorCString s = error (unpackCString s)
+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