diff options
| author | sof <unknown> | 1998-08-14 13:07:13 +0000 |
|---|---|---|
| committer | sof <unknown> | 1998-08-14 13:07:13 +0000 |
| commit | 405c1bb46adfb53ebf6aef4efe24af1c47d7c816 (patch) | |
| tree | 1aa051e2f4f919cddb25bcd9538698dbf69a236f /ghc/lib/posix | |
| parent | 1a8ef5929b3a921e35da90f973cc1bca8c79f427 (diff) | |
| download | haskell-405c1bb46adfb53ebf6aef4efe24af1c47d7c816.tar.gz | |
[project @ 1998-08-14 13:06:56 by sof]
Better error messages
Diffstat (limited to 'ghc/lib/posix')
| -rw-r--r-- | ghc/lib/posix/PosixDB.lhs | 8 | ||||
| -rw-r--r-- | 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 2952c05046..035998c387 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 07d01abbe0..5754a2372d 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} |