diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-12-17 09:13:54 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-12-17 09:28:59 +0000 |
| commit | b8ffb16aa4e146855c78594879662dc606ffe0b1 (patch) | |
| tree | 11cdfe258edd5547edf7f92833857becfbc1006e /haddock-api/src | |
| parent | 179a3faca1524f6cb1cd21e0cefc2000bb6480be (diff) | |
Only keep one Version instead of blindly appending
Diffstat (limited to 'haddock-api/src')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs b/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs index 921e4090..96d734eb 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -22,12 +22,12 @@ module Haddock.Backends.Xhtml.DocMarkup ( import Control.Applicative ((<$>)) import Data.List -import Data.Monoid (mconcat) import Haddock.Backends.Xhtml.Names import Haddock.Backends.Xhtml.Utils import Haddock.Types import Haddock.Utils -import Haddock.Doc (combineDocumentation, emptyMetaDoc, metaDocAppend) +import Haddock.Doc (combineDocumentation, emptyMetaDoc, + metaDocAppend, metaConcat) import Text.XHtml hiding ( name, p, quote ) import Data.Maybe (fromMaybe) @@ -152,7 +152,7 @@ flatten x = [x] hackMarkup :: DocMarkup id Html -> Hack (ModuleName, OccName) id -> Html hackMarkup fmt' h' = let (html, ms) = hackMarkup' fmt' h' - in html +++ renderMeta fmt' (mconcat ms) + in html +++ renderMeta fmt' (metaConcat ms) where hackMarkup' :: DocMarkup id Html -> Hack (ModuleName, OccName) id -> (Html, [Meta]) |