From 5ab2abc9ce2d7df19a49a5de5c79d39b6ff02e3b Mon Sep 17 00:00:00 2001 From: David Waern Date: Wed, 24 Oct 2007 16:37:18 +0000 Subject: Make it possible to run haddock on itself --- src/Haddock/Backends/Html.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock/Backends') diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 65cc8ee2..c4c769a2 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1114,7 +1114,7 @@ expandField :: HsFieldDecl -> [HsFieldDecl] expandField (HsFieldDecl ns ty doc) = [ HsFieldDecl [n] ty doc | n <- ns ] -} --- | Print the LHS of a data/newtype declaration. +-- | Print the LHS of a data\/newtype declaration. -- Currently doesn't handle 'data instance' decls or kind signatures ppDataHeader :: Bool -> TyClDecl DocName -> Html ppDataHeader summary decl @@ -1129,7 +1129,7 @@ ppDataHeader summary decl -- | data context => ... = --- ^ Print this part of a data/newtype declaration +-- ^ Print this part of a data\/newtype declaration ppDataHead :: Bool -> Name -> [Name] -> Html ppDataHead summary name tyvars -- cgit v1.2.3