X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fposix%2FPosixUtil.lhs;h=b02cb251723ef6f7bc685fa0037afed99d6f3ceb;hb=08af80d89e259668327c533a717617836ddeca7c;hp=19cc3389fbeb06d0d2c140692b2c7f4f144ff2fd;hpb=94ac8915eb5ea8e47022d30405e5de0b88eb3f83;p=ghc-hetmet.git

diff --git a/ghc/lib/posix/PosixUtil.lhs b/ghc/lib/posix/PosixUtil.lhs
index 19cc338..b02cb25 100644
--- 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