From 01de3a355ee0db773eba5f4368ac8ef4d75425b5 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Sun, 9 Feb 2014 18:27:36 +0000 Subject: Insert a space between module link and description Fixes Haddock Trac #277. --- src/Haddock/Backends/Xhtml.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Haddock/Backends') diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index ac4282fb..3168c7b0 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -291,7 +291,7 @@ mkNodeList qual ss p ts = case ts of mkNode :: Qualification -> [String] -> String -> ModuleTree -> Html mkNode qual ss p (Node s leaf pkg short ts) = - htmlModule +++ shortDescr +++ htmlPkg +++ subtree + htmlModule <+> shortDescr +++ htmlPkg +++ subtree where modAttrs = case (ts, leaf) of (_:_, False) -> collapseControl p True "module" -- cgit v1.2.3