From 405c1bb46adfb53ebf6aef4efe24af1c47d7c816 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 13:07:13 +0000
Subject: [PATCH] [project @ 1998-08-14 13:06:56 by sof] Better error messages
---
ghc/lib/posix/PosixDB.lhs | 8 ++++----
ghc/lib/posix/PosixFiles.lhs | 6 +++---
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/ghc/lib/posix/PosixDB.lhs b/ghc/lib/posix/PosixDB.lhs
index 2952c05046cf..035998c387af 100644
--- a/ghc/lib/posix/PosixDB.lhs
+++ b/ghc/lib/posix/PosixDB.lhs
@@ -46,7 +46,7 @@ getGroupEntryForID gid =
_ccall_ getgrgid gid >>= \ ptr ->
if ptr == (``NULL'' :: Addr) then
fail (IOError Nothing NoSuchThing
- "getGroupEntryForID: no such group entry")
+ "getGroupEntryForID" "no such group entry")
else
unpackGroupEntry ptr
@@ -56,7 +56,7 @@ getGroupEntryForName name =
_ccall_ getgrnam gname >>= \ ptr ->
if ptr == (``NULL'' :: Addr) then
fail (IOError Nothing NoSuchThing
- "getGroupEntryForName: no such group entry")
+ "getGroupEntryForName" "no such group entry")
else
unpackGroupEntry ptr
@@ -65,7 +65,7 @@ getUserEntryForID uid =
_ccall_ getpwuid uid >>= \ ptr ->
if ptr == ``NULL'' then
fail (IOError Nothing NoSuchThing
- "getUserEntryForID: no such user entry")
+ "getUserEntryForID" "no such user entry")
else
unpackUserEntry ptr
@@ -75,7 +75,7 @@ getUserEntryForName name =
_ccall_ getpwnam uname >>= \ ptr ->
if ptr == ``NULL'' then
fail (IOError Nothing NoSuchThing
- "getUserEntryForName: no such user entry")
+ "getUserEntryForName" "no such user entry")
else
unpackUserEntry ptr
\end{code}
diff --git a/ghc/lib/posix/PosixFiles.lhs b/ghc/lib/posix/PosixFiles.lhs
index 07d01abbe0bc..5754a2372da7 100644
--- a/ghc/lib/posix/PosixFiles.lhs
+++ b/ghc/lib/posix/PosixFiles.lhs
@@ -128,7 +128,7 @@ readDirStream dirp = do
else do
errno <- getErrorCode
if errno == noError
- then fail (IOError Nothing EOF "EOF")
+ then fail (IOError Nothing EOF "readDirStream" "EOF")
else syserr "readDirStream"
rewindDirStream :: DirStream -> IO ()
@@ -529,7 +529,7 @@ pathconf n name = do
else do
errno <- getErrorCode
if errno == invalidArgument
- then fail (IOError Nothing NoSuchThing "PosixFiles.getPathVar: no such path limit or option")
+ then fail (IOError Nothing NoSuchThing "getPathVar" "no such path limit or option")
else syserr "PosixFiles.getPathVar"
@@ -553,7 +553,7 @@ fpathconf n fd = do
else do
errno <- getErrorCode
if errno == invalidArgument
- then fail (IOError Nothing NoSuchThing "getFileVar: no such path limit or option")
+ then fail (IOError Nothing NoSuchThing "getFileVar" "no such path limit or option")
else syserr "getFileVar"
\end{code}
--
GitLab