From: ross <unknown>
Date: Thu, 6 Jan 2005 18:14:40 +0000 (+0000)
Subject: [project @ 2005-01-06 18:14:40 by ross]
X-Git-Tag: nhc98-1-18-release~140
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d20f3c9e058e81146ba3d346c4319b63ae6858f1;p=ghc-base.git

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