X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;h=6c351221390605dc0848069ddc33b01e1aae7a4c;hb=d20f3c9e058e81146ba3d346c4319b63ae6858f1;hp=0989986b5fe90048f0f314c0bcfddde132051783;hpb=d567f2cc18ef594c7f08a2014ad8b97238eae288;p=haskell-directory.git

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