[haddock @ 2002-07-09 16:33:31 by krasimir]

'Microsoft HTML Help' support

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.