From: simonmar <unknown>
Date: Tue, 17 May 2005 09:46:22 +0000 (+0000)
Subject: [project @ 2005-05-17 09:46:22 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~535
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0c55f9264b1e2c00d33cbeb584b228e6e0a19ea1;hp=cd70fa7b433c3f885067875b66e47c47ef71d37d;p=ghc-hetmet.git

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