From c33a0b2ef062ac19692a4b836d28d16b49aab995 Mon Sep 17 00:00:00 2001 From: Mathieu Boespflug Date: Mon, 20 May 2013 11:56:28 +0200 Subject: 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 --- src/Haddock/Types.hs | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) (limited to 'src/Haddock/Types.hs') diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index 181ea026..bd4f10fa 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -399,20 +399,24 @@ data DocMarkup id a = Markup data HaddockModInfo name = HaddockModInfo - { hmi_description :: (Maybe (Doc name)) - , hmi_portability :: (Maybe String) - , hmi_stability :: (Maybe String) - , hmi_maintainer :: (Maybe String) - , hmi_safety :: (Maybe String) + { hmi_description :: Maybe (Doc name) + , hmi_copyright :: Maybe String + , hmi_license :: Maybe String + , hmi_maintainer :: Maybe String + , hmi_stability :: Maybe String + , hmi_portability :: Maybe String + , hmi_safety :: Maybe String } emptyHaddockModInfo :: HaddockModInfo a emptyHaddockModInfo = HaddockModInfo { hmi_description = Nothing - , hmi_portability = Nothing - , hmi_stability = Nothing + , hmi_copyright = Nothing + , hmi_license = Nothing , hmi_maintainer = Nothing + , hmi_stability = Nothing + , hmi_portability = Nothing , hmi_safety = Nothing } -- cgit v1.2.3