diff options
| author | Tim Lin <timtylin@gmail.com> | 2015-02-06 01:16:40 -0800 |
|---|---|---|
| committer | Tim Lin <timtylin@gmail.com> | 2015-02-06 01:16:40 -0800 |
| commit | 858ebf99ebe809685ca42fced374ceeaea3a832c (patch) | |
| tree | 3728b926a5387e20b06e6b28031c8700f61f4c73 /src/Text/Pandoc/Writers | |
| parent | fb7a03dcda6872e5f41c16783dc66244805ac44a (diff) | |
| download | pandoc-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.hs | 2 |
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 |