From d20f3c9e058e81146ba3d346c4319b63ae6858f1 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Thu, 6 Jan 2005 18:14:40 +0000
Subject: [PATCH] [project @ 2005-01-06 18:14:40 by ross] extensions no longer
 include dots

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

diff --git a/System/Directory.hs b/System/Directory.hs
index 0989986..6c35122 100644
--- 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
-- 
1.7.10.4