From b8ffb16aa4e146855c78594879662dc606ffe0b1 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Wed, 17 Dec 2014 09:13:54 +0000 Subject: Only keep one Version instead of blindly appending --- haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'haddock-api/src/Haddock') 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]) -- cgit v1.2.3