diff options
| author | David Waern <unknown> | 2007-07-11 20:37:11 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-07-11 20:37:11 +0000 |
| commit | 3fe640b29fccb30943612ec1b99b8cd1dbc0fa9f (patch) | |
| tree | 021bc8f49354f0097251f1656fa8a09e10bce3f4 /src/Haddock/Html.hs | |
| parent | 4404d4f8fe162719aca689ae1c786d43501cfd78 (diff) | |
Follow changes to record constructor representation
Diffstat (limited to 'src/Haddock/Html.hs')
| -rw-r--r-- | src/Haddock/Html.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Haddock/Html.hs b/src/Haddock/Html.hs index 6bd80687..c6b4edf0 100644 --- a/src/Haddock/Html.hs +++ b/src/Haddock/Html.hs @@ -33,7 +33,7 @@ import Debug.Trace ( trace ) import Data.Map ( Map ) import qualified Data.Map as Map hiding ( Map ) -import GHC +import GHC hiding ( NoLink ) import Name import Module import PackageConfig ( stringToPackageId ) @@ -1044,8 +1044,8 @@ ppSideBySideConstr (L _ con) = case con_res con of mbLDoc = con_doc con mkFunTy a b = noLoc (HsFunTy a b) -ppSideBySideField :: HsRecField DocName (LHsType DocName) -> HtmlTable -ppSideBySideField (HsRecField lname ltype mbLDoc) = +ppSideBySideField :: ConDeclField DocName -> HtmlTable +ppSideBySideField (ConDeclField lname ltype mbLDoc) = argBox (ppBinder False (orig lname) <+> dcolon <+> ppLType ltype) <-> maybeRDocBox mbLDoc @@ -1077,8 +1077,8 @@ ppHsFullConstr (HsRecDecl _ nm tvs ctxt fields doc) = ) -} -ppShortField :: Bool -> HsRecField DocName (LHsType DocName)-> HtmlTable -ppShortField summary (HsRecField lname ltype mbLDoc) +ppShortField :: Bool -> ConDeclField DocName -> HtmlTable +ppShortField summary (ConDeclField lname ltype _) = tda [theclass "recfield"] << ( ppBinder summary (orig lname) <+> dcolon <+> ppLType ltype |