aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends/Xhtml
diff options
context:
space:
mode:
authorƁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-31 12:38:59 +0200
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2015-08-21 18:22:33 +0100
commitca667e192d0867c9c2a3025918414147f50b7c19 (patch)
tree0390cb15507f40ecdd2b40725b0f7d38aa52aef1 /haddock-api/src/Haddock/Backends/Xhtml
parente3b0be8daf6f9fc8adad3d858f80187d3de74876 (diff)
Fix bug with missing space in documentation for associated types.
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Decl.hs13
1 files changed, 4 insertions, 9 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
index 7da1f08e..af946f9f 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
@@ -567,18 +567,13 @@ ppInstHead links splice unicode qual mdoc origin no (InstHead {..}) =
TypeInst rhs ->
(ptype, mdoc, [])
where
- ptype = mconcat
- [ keyword "type"
- , typ
- , maybe noHtml (\t -> equals <+> ppType unicode qual t) rhs
- ]
+ ptype = keyword "type" <+> typ <+> prhs
+ prhs = maybe noHtml (\t -> equals <+> ppType unicode qual t) rhs
DataInst dd ->
(pdata, mdoc, [])
where
- pdata = mconcat
- [ keyword "data" <+> typ
- , ppShortDataDecl False True dd unicode qual
- ]
+ pdata = keyword "data" <+> typ <+> pdecl
+ pdecl = ppShortDataDecl False True dd unicode qual
where
typ = ppAppNameTypes ihdClsName ihdKinds ihdTypes unicode qual