From 0c55f9264b1e2c00d33cbeb584b228e6e0a19ea1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 17 May 2005 09:46:22 +0000
Subject: [PATCH 1/1] [project @ 2005-05-17 09:46:22 by simonmar]
 replaceFilenameSuffix: fix

---
 ghc/compiler/utils/Util.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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