diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-28 13:17:04 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-28 13:19:39 +0300 |
| commit | b379a2903a07fc6a7389d1fed40565b3551fecc5 (patch) | |
| tree | 76173ddee30e2b62a2148cb0cfc12b32d54099fd /src/Text | |
| parent | c24ecf9cd92b5e6f672c8bdfd28da66743b49ce0 (diff) | |
| download | pandoc-b379a2903a07fc6a7389d1fed40565b3551fecc5.tar.gz | |
Muse writer: escape semicolons and markers after line break
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index c4614113c..5b08f0d63 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -382,7 +382,7 @@ renderInlineList True [] = pure "<verbatim></verbatim>" renderInlineList False [] = pure "" renderInlineList start (x:xs) = do r <- inlineToMuse x opts <- gets stOptions - lst' <- renderInlineList (x == SoftBreak && writerWrapText opts == WrapPreserve) xs + lst' <- renderInlineList ((x == SoftBreak && writerWrapText opts == WrapPreserve) || x == LineBreak) xs if start && fixOrEscape x then pure (text "<verbatim></verbatim>" <> r <> lst') else pure (r <> lst') |