From 858ebf99ebe809685ca42fced374ceeaea3a832c Mon Sep 17 00:00:00 2001 From: Tim Lin Date: Fri, 6 Feb 2015 01:16:40 -0800 Subject: Texinfo writer: fix wrapping by using breakable spaces --- src/Text/Pandoc/Writers/Texinfo.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs index 8fd177fd3..08739fd78 100644 --- a/src/Text/Pandoc/Writers/Texinfo.hs +++ b/src/Text/Pandoc/Writers/Texinfo.hs @@ -422,7 +422,7 @@ inlineToTexinfo (RawInline f str) | f == "texinfo" = return $ text str | otherwise = return empty inlineToTexinfo (LineBreak) = return $ text "@*" -inlineToTexinfo Space = return $ char ' ' +inlineToTexinfo Space = return $ space inlineToTexinfo (Link txt (src@('#':_), _)) = do contents <- escapeCommas $ inlineListToTexinfo txt -- cgit v1.2.3