[project @ 2005-05-17 09:46:22 by simonmar]

replaceFilenameSuffix: fix

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 9725f42..a19d2e7 100644 (file)
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -917,7 +917,7 @@ splitLongestPrefix s pred
   where (suf,pre) = break pred (reverse s)
 
 replaceFilenameSuffix :: FilePath -> Suffix -> FilePath
-replaceFilenameSuffix s suf = removeSuffix '.' s ++ suf
+replaceFilenameSuffix s suf = removeSuffix '.' s ++ '.':suf
 
 -- directoryOf strips the filename off the input string, returning
 -- the directory.