diff options
| author | Neil Mitchell <http://www.cs.york.ac.uk/~ndm/> | 2007-01-11 18:21:19 +0000 |
|---|---|---|
| committer | Neil Mitchell <http://www.cs.york.ac.uk/~ndm/> | 2007-01-11 18:21:19 +0000 |
| commit | 958009558fca718183f23f920118b966a13ef63b (patch) | |
| tree | 3ff9a8772c8aeffd80ae17152800cfb488b15e76 | |
| parent | bf9d816e9df61c11670e2e09b3ddb41475a3bc1a (diff) | |
Delete more stuff that is no longer required
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 034c4db2..40595eae 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -484,8 +484,8 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format [ if visible then linkId mod (Just nm) << toHtml (moduleString mod) else - toHtml (moduleString mod) - | (mod, visible) <- entries ]) + toHtml mdl + | (Module mdl, visible) <- entries ]) initialChars = [ 'A'..'Z' ] ++ ":!#$%&*+./<=>?@\\^|-~" |