[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 (file)
--- 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 ->