aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorTim Lin <timtylin@gmail.com>2015-02-06 01:16:40 -0800
committerTim Lin <timtylin@gmail.com>2015-02-06 01:16:40 -0800
commit858ebf99ebe809685ca42fced374ceeaea3a832c (patch)
tree3728b926a5387e20b06e6b28031c8700f61f4c73 /src/Text/Pandoc/Writers
parentfb7a03dcda6872e5f41c16783dc66244805ac44a (diff)
downloadpandoc-858ebf99ebe809685ca42fced374ceeaea3a832c.tar.gz
Texinfo writer: fix wrapping by using breakable spaces
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/Texinfo.hs2
1 files changed, 1 insertions, 1 deletions
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