aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-11-18 01:44:08 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-11-18 01:44:08 +0000
commit8d334b84cc51b16a6f010cd775f22b8072de9e7a (patch)
tree448b80e68d08f4abe00a53e5601428f6f85cae89
parentf4a1fa4b8db8299080bc65e6bebdc149480221c0 (diff)
downloadpandoc-8d334b84cc51b16a6f010cd775f22b8072de9e7a.tar.gz
Fixed some haddock documentation bugs in Shared.hs.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1085 788f1e2b-df1e-0410-8736-df70ead52e1b
-rw-r--r--src/Text/Pandoc/Shared.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 42d9acaf0..ce07ccd24 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -228,8 +228,8 @@ isNote _ = False
-- | Wrap inlines to line length, treating footnotes in a way that
-- makes sense in LaTeX and ConTeXt.
wrappedTeX :: Monad m
- => Bool -- | Include % on line before notes.
- -> ([Inline] -> m Doc) -- | Inline list writer.
+ => Bool
+ -> ([Inline] -> m Doc)
-> [Inline]
-> m Doc
wrappedTeX includePercent listWriter sect = do
@@ -250,8 +250,8 @@ wrappedTeX includePercent listWriter sect = do
-- for LaTeX and ConTeXt.
wrapTeXIfNeeded :: Monad m
=> WriterOptions
- -> Bool -- | Include % on line before notes.
- -> ([Inline] -> m Doc) -- | Inline list writer.
+ -> Bool
+ -> ([Inline] -> m Doc)
-> [Inline]
-> m Doc
wrapTeXIfNeeded opts includePercent = if writerWrapText opts