Muse writer: remove empty Str from the beginning of inline lists during normalization
commit39b31ef3cb6f227bc17f923cc00597ca70298820
authorAlexander Krotov <ilabdsf@gmail.com>
dateWed 7 Mar 2018, 16:25 (9 years ago)
parent1b1b6f0
src/Text/Pandoc/Writers/Muse.hs+2
@@ -301,6 +301,8 @@ preprocessInlineList (x:xs) = (x:) <$> preprocessInlineList xs
301301preprocessInlineList [] = return []
302302
303303normalizeInlineList :: [Inline] -> [Inline]
304+normalizeInlineList (Str "" : xs)
305+ = normalizeInlineList xs
304306normalizeInlineList (x : Str "" : xs)
305307 = normalizeInlineList (x:xs)
306308normalizeInlineList (Str x1 : Str x2 : xs)