From: simonmar <unknown>
Date: Thu, 6 Jan 2005 16:35:04 +0000 (+0000)
Subject: [project @ 2005-01-06 16:35:04 by simonmar]
X-Git-Tag: nhc98-1-18-release~142
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c3c41992e49e7cb42b51934147123385734a6677;p=haskell-directory.git

[project @ 2005-01-06 16:35:04 by simonmar]
Remove the leading '.' from exeExtension, objExtension and
dllExtension.  This is for consistency with joinFileExt, which does
not expect to see a '.' in the extension.
---

diff --git a/System/FilePath.hs b/System/FilePath.hs
index db12e05..bb85ba1 100644
--- a/System/FilePath.hs
+++ b/System/FilePath.hs
@@ -389,7 +389,7 @@ searchPathSeparator = ':'
 -- (typically @\"\"@ on Unix and @\".exe\"@ on Windows or OS\/2)
 exeExtension :: String
 #ifdef mingw32_TARGET_OS
-exeExtension = ".exe"
+exeExtension = "exe"
 #else
 exeExtension = ""
 #endif
@@ -399,16 +399,16 @@ exeExtension = ""
 -- (typically @\".o\"@ on Unix and @\".obj\"@ on Windows)
 objExtension :: String
 #ifdef mingw32_TARGET_OS
-objExtension = ".obj"
+objExtension = "obj"
 #else
-objExtension = ".o"
+objExtension = "o"
 #endif
 
 -- | Extension for dynamically linked (or shared) libraries
 -- (typically @\".so\"@ on Unix and @\".dll\"@ on Windows)
 dllExtension :: String
 #ifdef mingw32_TARGET_OS
-dllExtension = ".dll"
+dllExtension = "dll"
 #else
-dllExtension = ".so"
+dllExtension = "so"
 #endif