diff options
author | David Waern <david.waern@gmail.com> | 2010-09-01 11:19:21 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-09-01 11:19:21 +0000 |
commit | c369e055597eadcd5b68f966afcc2453f5174a4c (patch) | |
tree | 4b01d800eb99291ae107e32135f9749a1c17db14 /src/Haddock/Backends/Xhtml | |
parent | 0b0ca379557e201ce1bbdc02ea25b1ca9d42a9a1 (diff) |
Replace ghci> with >>> in example syntax
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
-rw-r--r-- | src/Haddock/Backends/Xhtml/DocMarkup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs index b1260a9c..be9ae876 100644 --- a/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -69,7 +69,7 @@ parHtmlMarkup ppId isTyCon = Markup { exampleToHtml (Example expression result) = htmlExample where htmlExample = htmlPrompt +++ htmlExpression +++ (toHtml $ unlines result) - htmlPrompt = (thecode . toHtml $ "ghci> ") ! [theclass "prompt"] + htmlPrompt = (thecode . toHtml $ ">>> ") ! [theclass "prompt"] htmlExpression = (strong . thecode . toHtml $ expression ++ "\n") ! [theclass "userinput"] |