X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2Fcbits%2FdirectoryAux.lc;fp=ghc%2Flib%2Fstd%2Fcbits%2FdirectoryAux.lc;h=cc67e00a97d0b6dc02cd65497e5ccbd41396ce0b;hb=b3820a206f272f89b6bef71572099d279201425f;hp=2b352c3c3810496353aee3a760244c42b60cf509;hpb=de8e0e31b41f9f60aad330d62d06b6c5c1596d9e;p=ghc-hetmet.git

diff --git a/ghc/lib/std/cbits/directoryAux.lc b/ghc/lib/std/cbits/directoryAux.lc
index 2b352c3..cc67e00 100644
--- a/ghc/lib/std/cbits/directoryAux.lc
+++ b/ghc/lib/std/cbits/directoryAux.lc
@@ -64,7 +64,7 @@ StgAddr dir;
         cvtErrno();
         stdErrno();
 	(void) closedir((DIR*)dir);
-	return 1;
+	return NULL;
     }
     errno = 0;
   }