diff options
Diffstat (limited to 'src/HaddockUtil.hs')
| -rw-r--r-- | src/HaddockUtil.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs index 1e8e2ca8..3e7660bb 100644 --- a/src/HaddockUtil.hs +++ b/src/HaddockUtil.hs @@ -14,6 +14,7 @@ module HaddockUtil ( -- * Filename utilities basename, dirname, splitFilename3, isPathSeparator, pathSeparator, + moduleHtmlFile, -- * Miscellaneous utilities die, dieMsg, mapSnd, mapMaybeM, @@ -209,6 +210,10 @@ isPathSeparator ch = ch == '/' #endif +moduleHtmlFile :: FilePath -> String -> FilePath +moduleHtmlFile "" mod = mod ++ ".html" -- ToDo: Z-encode filename? +moduleHtmlFile dir mod = dir ++ pathSeparator : mod ++ ".html" + ----------------------------------------------------------------------------- -- misc. |