From 23eeb743618096d298b4417a2cb0b6e5978f7e93 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 13:08:18 +0000
Subject: [PATCH] [project @ 1998-08-14 13:08:18 by sof] trivial syserr fix

---
 ghc/lib/posix/PosixUtil.lhs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/ghc/lib/posix/PosixUtil.lhs b/ghc/lib/posix/PosixUtil.lhs
index 127524ee5424..9334af90047c 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.
 
-- 
GitLab