From: sof <unknown>
Date: Fri, 9 Nov 2001 20:58:40 +0000 (+0000)
Subject: [project @ 2001-11-09 20:58:40 by sof]
X-Git-Tag: Approximately_9120_patches~583
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=914cc0f06380835af7bd58dd77560c88ff0c31af;p=ghc-hetmet.git

[project @ 2001-11-09 20:58:40 by sof]
prel_PrelHandle_read(): de-hebetudified.
---

diff --git a/ghc/lib/std/cbits/PrelIOUtils.c b/ghc/lib/std/cbits/PrelIOUtils.c
index feabc8b..607d1bd 100644
--- a/ghc/lib/std/cbits/PrelIOUtils.c
+++ b/ghc/lib/std/cbits/PrelIOUtils.c
@@ -72,7 +72,7 @@ HsInt prel_PrelHandle_write(HsInt fd, HsAddr ptr, HsInt off, HsInt sz)
 
 HsInt prel_PrelHandle_read(HsInt fd, HsAddr ptr, HsInt off, HsInt sz)
 {
-  return write(fd,ptr + off, sz);
+  return read(fd,ptr + off, sz);
 }
 
 void *prel_PrelIO_memcpy(char *dst, HsInt dst_off, const char *src, size_t sz)