diff options
| author | Yitzchak Gale <gale@sefer.org> | 2010-02-14 16:03:46 +0000 |
|---|---|---|
| committer | Yitzchak Gale <gale@sefer.org> | 2010-02-14 16:03:46 +0000 |
| commit | 60a45e7f430f2b6817650452e0939f4dac7ad577 (patch) | |
| tree | 93546f7653db5d86916fd4c9653a83d3901d4dd4 /src/Haddock/Backends/Html.hs | |
| parent | bf7ab3e68298fc4748264e321330c6c023338ffa (diff) | |
Do not generate illegal character in HTML ID attribute.
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 05cddcac..0072abd0 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -399,7 +399,7 @@ mkNode ss (Node s leaf pkg short ts) depth id_ = htmlNode (s':ss') = reverse (s:ss) -- reconstruct the module name - id_s = "n:" ++ show id_ + id_s = "n." ++ show id_ (sub_tree,id') = genSubTree emptyTable (id_+1) ts |