diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 16:27:56 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 18:35:04 +0300 |
| commit | f8e255053de09786c6c251e38387663750ddd3ac (patch) | |
| tree | 4dec6a950d96a9002a1f396ebe9dcc981ef54a23 /src/Text | |
| parent | 39b31ef3cb6f227bc17f923cc00597ca70298820 (diff) | |
| download | pandoc-f8e255053de09786c6c251e38387663750ddd3ac.tar.gz | |
Muse writer: write empty inline lists as <verbatim></verbatim>
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 6cdd3e182..7a9bc8130 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -339,8 +339,10 @@ inlineListToMuse :: PandocMonad m => [Inline] -> StateT WriterState m Doc inlineListToMuse lst = do - lst' <- preprocessInlineList lst - hcat <$> mapM inlineToMuse (fixNotes $ normalizeInlineList lst') + lst' <- normalizeInlineList <$> preprocessInlineList lst + if null lst' + then pure "<verbatim></verbatim>" + else hcat <$> mapM inlineToMuse (fixNotes lst') -- | Convert Pandoc inline element to Muse. inlineToMuse :: PandocMonad m |