From d28046248d457f9082e39b1b4de529e20f62379d Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Fri, 11 Jun 2010 21:14:44 +0000 Subject: fix missing space in "module" lines in synoposis --- 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 6e6decf7..167250b4 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -745,7 +745,7 @@ processExport _ _ _ (ExportNoDecl y subs) processExport summary _ _ (ExportDoc doc) = nothingIf summary $ docToHtml doc processExport _ _ _ (ExportModule mdl) - = Just $ toHtml "module" +++ ppModule mdl "" + = Just $ toHtml "module" <+> ppModule mdl "" nothingIf :: Bool -> a -> Maybe a nothingIf True _ = Nothing -- cgit v1.2.3