diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 16:25:15 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-07 16:25:15 +0300 |
| commit | 39b31ef3cb6f227bc17f923cc00597ca70298820 (patch) | |
| tree | 89471703b3416abb0b8df8c801dc2a256780802c /src/Text/Pandoc/Writers/Muse.hs | |
| parent | 1b1b6f02d59626fac591e4ed4a2286c6effca6d2 (diff) | |
| download | pandoc-39b31ef3cb6f227bc17f923cc00597ca70298820.tar.gz | |
Muse writer: remove empty Str from the beginning of inline lists during normalization
Diffstat (limited to 'src/Text/Pandoc/Writers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index ea46507db..6cdd3e182 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -301,6 +301,8 @@ preprocessInlineList (x:xs) = (x:) <$> preprocessInlineList xs preprocessInlineList [] = return [] normalizeInlineList :: [Inline] -> [Inline] +normalizeInlineList (Str "" : xs) + = normalizeInlineList xs normalizeInlineList (x : Str "" : xs) = normalizeInlineList (x:xs) normalizeInlineList (Str x1 : Str x2 : xs) |