diff options
| author | simonmar <unknown> | 2005-05-17 09:46:22 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-05-17 09:46:22 +0000 |
| commit | 0c55f9264b1e2c00d33cbeb584b228e6e0a19ea1 (patch) | |
| tree | a43ee89c6a3f64f8a9221ba54c860ea8c45f7f45 /ghc/compiler | |
| parent | cd70fa7b433c3f885067875b66e47c47ef71d37d (diff) | |
| download | haskell-0c55f9264b1e2c00d33cbeb584b228e6e0a19ea1.tar.gz | |
[project @ 2005-05-17 09:46:22 by simonmar]
replaceFilenameSuffix: fix
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/utils/Util.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs index 9725f427b7..a19d2e7023 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. |