diff options
| author | RyanGlScott <ryan.gl.scott@gmail.com> | 2016-02-11 20:17:09 -0500 |
|---|---|---|
| committer | RyanGlScott <ryan.gl.scott@gmail.com> | 2016-02-11 20:17:09 -0500 |
| commit | 1338b5d7c32939de6bbc31af0049477e4f847103 (patch) | |
| tree | a591e15334d1f842349ad340daceaaf844841894 /haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | |
| parent | 2da130a8db8f995c119b544fad807533236cf088 (diff) | |
Ensure expanded family instances render correctly
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml/Decl.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index 151589ff..66bb21da 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -603,14 +603,15 @@ ppInstHead links splice unicode qual mdoc origin orphan no ihd@(InstHead {..}) = ) where ptype = keyword "type" <+> typ - prhs = maybe noHtml (\t -> equals <+> ppType unicode qual t) rhs + prhs = ptype <+> maybe noHtml + (\t -> equals <+> ppType unicode qual t) rhs DataInst dd -> ( subInstHead iid pdata , mdoc , [subFamInstDetails iid pdecl]) where pdata = keyword "data" <+> typ - pdecl = ppShortDataDecl False True dd unicode qual + pdecl = pdata <+> ppShortDataDecl False True dd unicode qual where iid = instanceId origin no orphan ihd typ = ppAppNameTypes ihdClsName ihdKinds ihdTypes unicode qual |