[commit: packages/directory] master: Fix windows build. (4df02f0)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/directory

On branch  : master
Link       : http://git.haskell.org/packages/directory.git/commitdiff/4df02f038197440fed18c52eb214583cc24da140

>---------------------------------------------------------------

commit 4df02f038197440fed18c52eb214583cc24da140
Author: Austin Seipp <austin at well-typed.com>
Date:   Sun Oct 27 18:30:46 2013 -0500

    Fix windows build.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

4df02f038197440fed18c52eb214583cc24da140
 System/Directory.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Directory.hs b/System/Directory.hs
index 4901a98..15ffa34 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -760,7 +760,7 @@ findExecutable fileName = do
 findExecutables :: String -> IO [FilePath]
 findExecutables binary = do
 #if defined(mingw32_HOST_OS)
-    file <- Win32.searchPath Nothing fileName ('.':exeExtension)
+    file <- Win32.searchPath Nothing binary ('.':exeExtension)
     return $ maybeToList file
 #else
     path <- getEnv "PATH"