From: simonm <unknown>
Date: Wed, 2 Sep 1998 09:16:26 +0000 (+0000)
Subject: [project @ 1998-09-02 09:16:26 by simonm]
X-Git-Tag: Approx_2487_patches~269
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3d8304853f8aa0426a68f7f02b14d85caa62afff;p=ghc-hetmet.git

[project @ 1998-09-02 09:16:26 by simonm]
fix typo
---

diff --git a/ghc/lib/std/PrelErr.lhs b/ghc/lib/std/PrelErr.lhs
index 42cca98..8c560b2 100644
--- a/ghc/lib/std/PrelErr.lhs
+++ b/ghc/lib/std/PrelErr.lhs
@@ -96,7 +96,7 @@ error__ msg_hdr s
   = errorIO (do
      (hFlush stdout) `catch` (\ _ -> return ())
      let bs@(ByteArray (_,len) _) = packString s
-     _ccall_ __writeErrString__ msg_hdr bs len
+     _ccall_ writeErrString__ msg_hdr bs len
      _ccall_ stg_exit (1::Int)
     )
 #else