From: ross <unknown>
Date: Fri, 21 Oct 2005 06:54:13 +0000 (+0000)
Subject: [project @ 2005-10-21 06:54:13 by ross]
X-Git-Tag: cmm-merge2~4
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=eb05059d83b1c23cb5754b46f0ba5010ba80912d

[project @ 2005-10-21 06:54:13 by ross]
repair findExecutable
---

diff --git a/System/Directory.hs b/System/Directory.hs
index 21bdbf4..8b7dee3 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -576,7 +576,7 @@ canonicalizePath fpath = return fpath
 -- such executable. For example (findExecutable \"ghc\")
 -- gives you the path to GHC.
 findExecutable :: String -> IO (Maybe FilePath)
-findExecutable binary =
+findExecutable binary = do
 #if defined(mingw32_HOST_OS)
   withCString binary $ \c_binary ->
   withCString ('.':exeExtension) $ \c_ext ->