aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockUtil.hs
diff options
context:
space:
mode:
authorsimonmar <unknown>2005-06-27 14:46:40 +0000
committersimonmar <unknown>2005-06-27 14:46:40 +0000
commitabfd98262dc5b9c2b0e2c9a85fb828854e0afecd (patch)
treee8cb22f5be64756a29c751ad100faa4ab814f9fe /src/HaddockUtil.hs
parent3b953f8b9f2fa01b550e2b2d05ce962b1ff07685 (diff)
[haddock @ 2005-06-27 14:46:40 by simonmar]
name hierarchical HTML files as A-B-C.html instead of A.B.C.html. The old way confused Apache because the extensions are sometimes interpreted as having special meanings.
Diffstat (limited to 'src/HaddockUtil.hs')
-rw-r--r--src/HaddockUtil.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs
index ef02596f..96dc7a0b 100644
--- a/src/HaddockUtil.hs
+++ b/src/HaddockUtil.hs
@@ -385,8 +385,10 @@ isPathSeparator ch =
moduleHtmlFile :: String -> FilePath
moduleHtmlFile mdl =
case Map.lookup (Module mdl) html_xrefs of
- Nothing -> mdl ++ ".html"
- Just fp0 -> pathJoin [fp0, mdl ++ ".html"]
+ Nothing -> mdl' ++ ".html"
+ Just fp0 -> pathJoin [fp0, mdl' ++ ".html"]
+ where
+ mdl' = map (\c -> if c == '.' then '-' else c) mdl
nameHtmlRef :: String -> HsName -> String
nameHtmlRef mdl str = moduleHtmlFile mdl ++ '#':escapeStr (hsAnchorNameStr str)