diff options
| author | Mathieu Boespflug <mathieu.boespflug@parsci.com> | 2013-05-20 11:56:28 +0200 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2013-08-04 10:39:43 -0700 |
| commit | c33a0b2ef062ac19692a4b836d28d16b49aab995 (patch) | |
| tree | ed1745e4dd3510a708df8b5a25d7662275fcfc0c /src/Haddock/Backends/Xhtml.hs | |
| parent | 34d2aa54b95e8d261dc325393893d06f6a085130 (diff) | |
Output Copright and License keys in Xhtml backend.
This information is as relevant in the documentation as it is in the
source files themselves.
Signed-off-by: David Waern <david.waern@gmail.com>
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index fde2da69..96aea5e5 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -200,11 +200,13 @@ moduleInfo iface = entries :: [HtmlTable] entries = mapMaybe doOneEntry [ - ("Portability",hmi_portability), - ("Stability",hmi_stability), - ("Maintainer",hmi_maintainer), - ("Safe Haskell",hmi_safety) - ] + ("Copyright",hmi_copyright), + ("License",hmi_copyright), + ("Maintainer",hmi_maintainer), + ("Stability",hmi_stability), + ("Portability",hmi_portability), + ("Safe Haskell",hmi_safety) + ] in case entries of [] -> noHtml |