diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-07-31 12:38:59 +0200 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2015-08-21 18:22:33 +0100 |
| commit | ca667e192d0867c9c2a3025918414147f50b7c19 (patch) | |
| tree | 0390cb15507f40ecdd2b40725b0f7d38aa52aef1 /haddock-api/src/Haddock | |
| parent | e3b0be8daf6f9fc8adad3d858f80187d3de74876 (diff) | |
Fix bug with missing space in documentation for associated types.
Diffstat (limited to 'haddock-api/src/Haddock')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 13 |
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 |