[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 (file)
--- 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