From: simonm <unknown>
Date: Mon, 20 Oct 1997 09:18:55 +0000 (+0000)
Subject: [project @ 1997-10-20 09:18:55 by simonm]
X-Git-Tag: Approx_2487_patches~1340
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9b1a016ae85a780acfc3f07558760b828844eba9;p=ghc-hetmet.git

[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
--- 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