[project @ 1997-10-20 09:18:55 by simonm]

fix reversed arguments to unpackNBytesST in getCurrentDirectory.

diff --git a/ghc/lib/required/Directory.lhs b/ghc/lib/required/Directory.lhs
index 719fe8b..d633b4a 100644 (file)
--- a/ghc/lib/required/Directory.lhs
+++ b/ghc/lib/required/Directory.lhs
@@ -383,7 +383,7 @@ getCurrentDirectory =
     _ccall_ getCurrentDirectory            `thenIO_Prim` \ str ->
     if str /= ``NULL'' then
         _ccall_ strlen str             `thenIO_Prim` \ len ->
-        stToIO (unpackNBytesST len str)        >>=           \ pwd ->
+        stToIO (unpackNBytesST str len)        >>=           \ pwd ->
         _ccall_ free str               `thenIO_Prim` \ () ->
         return pwd
     else