From eb05059d83b1c23cb5754b46f0ba5010ba80912d Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Fri, 21 Oct 2005 06:54:13 +0000
Subject: [PATCH] [project @ 2005-10-21 06:54:13 by ross] repair
 findExecutable

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

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