From 8d334b84cc51b16a6f010cd775f22b8072de9e7a Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 18 Nov 2007 01:44:08 +0000 Subject: Fixed some haddock documentation bugs in Shared.hs. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1085 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Shared.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3