39b31ef · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Muse writer: remove empty Str from the beginning of inline lists during normalization

39b31efAlexander Krotov9 years ago

src/Text/Pandoc/Writers/Muse.hs+2

@@ -301,6 +301,8 @@ preprocessInlineList (x:xs) = (x:) <$> preprocessInlineList xs

301preprocessInlineList [] = return []

302

303normalizeInlineList :: [Inline] -> [Inline]

304+normalizeInlineList (Str "" : xs)

305+ = normalizeInlineList xs

304normalizeInlineList (x : Str "" : xs)

306normalizeInlineList (x : Str "" : xs)

305 = normalizeInlineList (x:xs)

307 = normalizeInlineList (x:xs)

306normalizeInlineList (Str x1 : Str x2 : xs)

308normalizeInlineList (Str x1 : Str x2 : xs)