[project @ 1999-01-14 18:18:45 by sof]

[ghc-hetmet.git] / ghc / lib / posix / PosixUtil.lhs

diff --git a/ghc/lib/posix/PosixUtil.lhs b/ghc/lib/posix/PosixUtil.lhs
index 19cc338..b02cb25 100644 (file)
--- a/ghc/lib/posix/PosixUtil.lhs
+++ b/ghc/lib/posix/PosixUtil.lhs
@@ -49,10 +49,10 @@ errno.
 
 \begin{code}
 syserr :: String -> IO a
-syserr str = fail (IOError Nothing     -- ToDo: better
-                          SystemError
-                          str
-                          "")
+syserr str = ioError (IOError Nothing     -- ToDo: better
+                             SystemError
+                             str
+                             "")
 
 -- common templates for system calls