diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-06-11 21:14:44 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-06-11 21:14:44 +0000 |
| commit | d28046248d457f9082e39b1b4de529e20f62379d (patch) | |
| tree | eee468c3211faa01458476d6ea3d74175b9adb8f | |
| parent | c9958a9dd9de3ea9e074afcf79f0595b7700854b (diff) | |
fix missing space in "module" lines in synoposis
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |