From: sof <unknown>
Date: Fri, 14 Aug 1998 13:08:18 +0000 (+0000)
Subject: [project @ 1998-08-14 13:08:18 by sof]
X-Git-Tag: Approx_2487_patches~351
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=23eeb743618096d298b4417a2cb0b6e5978f7e93;p=ghc-hetmet.git

[project @ 1998-08-14 13:08:18 by sof]
trivial syserr fix
---

diff --git a/ghc/lib/posix/PosixUtil.lhs b/ghc/lib/posix/PosixUtil.lhs
index 127524e..9334af9 100644
--- a/ghc/lib/posix/PosixUtil.lhs
+++ b/ghc/lib/posix/PosixUtil.lhs
@@ -12,7 +12,12 @@ import PrelIOBase  -- IOError representation
 import Addr
 import Foreign
 import CCall
-import PrelBase
+import PrelAddr
+import PrelBase ( Int(..), Int#, (==#)
+                , newIntArray#, unsafeFreezeByteArray#, newCharArray#
+		, RealWorld
+		)
+
 import MutableArray
 import ByteArray
 import Array
@@ -64,7 +69,8 @@ errno.
 syserr :: String -> IO a
 syserr str = fail (IOError Nothing     -- ToDo: better
 			   SystemError
-			   str)
+			   str
+			   "")
 
 -- Allocate a mutable array of characters with no indices.