diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-02-07 20:31:33 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-02-07 20:31:33 -0800 |
| commit | 20b3dea3fe6f531cdec2f2fe6f7552912cb99feb (patch) | |
| tree | 292781565d8d3e6c54f99d8b704d4d8586552689 /src/Text/Pandoc/Writers/Texinfo.hs | |
| parent | 0a1cd2531243d2fd82e442448602705ac9174873 (diff) | |
| parent | bd7cf8dbd5b2d7db662a5f961cb2863fd2e73f14 (diff) | |
| download | pandoc-20b3dea3fe6f531cdec2f2fe6f7552912cb99feb.tar.gz | |
Merge branch 'timtylin-patch/fixTexinfoWrap'
Diffstat (limited to 'src/Text/Pandoc/Writers/Texinfo.hs')
| -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 cf736ebda..792718e95 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 "@*" <> cr -inlineToTexinfo Space = return $ char ' ' +inlineToTexinfo Space = return space inlineToTexinfo (Link txt (src@('#':_), _)) = do contents <- escapeCommas $ inlineListToTexinfo txt |