diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-16 01:14:15 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-16 01:14:15 +0000 |
| commit | 9ae1088fd211df4796dcd0a99c048e09a7c61d51 (patch) | |
| tree | eb787efc4643c897ef3a87e359e8e937f250cc5b /src/Haddock/Backends/Xhtml/DocMarkup.hs | |
| parent | 0a53f7fd06815ea995b000ce0194c9c296772453 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Backends/Xhtml/DocMarkup.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/DocMarkup.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs index 1e43891d..93536834 100644 --- a/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -64,11 +64,11 @@ parHtmlMarkup ppId isTyCon = Markup { | isTyCon x = x | otherwise = y - examplesToHtml l = (pre $ concatHtml $ map exampleToHtml l) ! [theclass "screen"] + examplesToHtml l = pre (concatHtml $ map exampleToHtml l) ! [theclass "screen"] exampleToHtml (Example expression result) = htmlExample where - htmlExample = htmlPrompt +++ htmlExpression +++ (toHtml $ unlines result) + htmlExample = htmlPrompt +++ htmlExpression +++ toHtml (unlines result) htmlPrompt = (thecode . toHtml $ ">>> ") ! [theclass "prompt"] htmlExpression = (strong . thecode . toHtml $ expression ++ "\n") ! [theclass "userinput"] @@ -98,7 +98,7 @@ docElement el content_ = docSection :: Qualification -> Doc DocName -> Html -docSection qual = (docElement thediv <<) . (docToHtml qual) +docSection qual = (docElement thediv <<) . docToHtml qual maybeDocSection :: Qualification -> Maybe (Doc DocName) -> Html |