summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
cd70fa7)
replaceFilenameSuffix: fix
where (suf,pre) = break pred (reverse s)
replaceFilenameSuffix :: FilePath -> Suffix -> FilePath
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.
-- directoryOf strips the filename off the input string, returning
-- the directory.