From 9ae1088fd211df4796dcd0a99c048e09a7c61d51 Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 16 Nov 2010 01:14:15 +0000 Subject: hlint police --- src/Haddock/Backends/Xhtml/DocMarkup.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Haddock/Backends/Xhtml/DocMarkup.hs') 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 -- cgit v1.2.3