[project @ 2005-01-06 18:14:40 by ross]

extensions no longer include dots

diff --git a/System/Directory.hs b/System/Directory.hs
index 0989986..6c35122 100644 (file)
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -524,7 +524,7 @@ findExecutable binary = do
   path <- getEnv "PATH"
   search (parseSearchPath path)
   where
-    fileName = binary `joinFileExt` drop 1 exeExtension
+    fileName = binary `joinFileExt` exeExtension
 
     search :: [FilePath] -> IO (Maybe FilePath)
     search [] = return Nothing