From 9b1a016ae85a780acfc3f07558760b828844eba9 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 20 Oct 1997 09:18:55 +0000
Subject: [PATCH] [project @ 1997-10-20 09:18:55 by simonm] fix reversed
 arguments to unpackNBytesST in getCurrentDirectory.

---
 ghc/lib/required/Directory.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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