X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FDirectory.hsc;h=d47841e52616a82c91f0e18398bd57d4d8584093;hb=52de87f59beb6d06b68e6b7c2946b1ea24043531;hp=2672fea907bc6dea3eb246ddb57c4a9cfbc0f532;hpb=6c9a37e31afc41d57417a3828877577d8d270266;p=ghc-hetmet.git

diff --git a/ghc/lib/std/Directory.hsc b/ghc/lib/std/Directory.hsc
index 2672fea..d47841e 100644
--- a/ghc/lib/std/Directory.hsc
+++ b/ghc/lib/std/Directory.hsc
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: Directory.hsc,v 1.3 2001/01/12 17:45:30 qrczak Exp $
+-- $Id: Directory.hsc,v 1.4 2001/01/15 20:55:14 qrczak Exp $
 --
 -- (c) The University of Glasgow, 1994-2000
 --
@@ -354,9 +354,9 @@ getDirectoryContents path = do
 	 else do errno <- getErrno
 		 if (errno == eINTR) then loop dir else do
 		 throwErrnoIfMinus1_ "getDirectoryContents" $ closedir dir
-		 if (isValidErrno errno) -- EOF
-		    then throwErrno "getDirectoryContents"
-		    else return []
+		 if (errno == eOK)
+		    then return []
+		    else throwErrno "getDirectoryContents"
 
 {-
 If the operating system has a notion of current directories,