From e9ed4832edb1a9f9c3cd7b6c670c39f513444192 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Mon, 22 Jan 2018 16:27:14 +0300 Subject: Muse writer: join code with different attributes during normalization --- src/Text/Pandoc/Writers/Muse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 23aa98866..164a46411 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -307,8 +307,8 @@ normalizeInlineList (Subscript x1 : Subscript x2 : ils) = normalizeInlineList $ Subscript (x1 ++ x2) : ils normalizeInlineList (SmallCaps x1 : SmallCaps x2 : ils) = normalizeInlineList $ SmallCaps (x1 ++ x2) : ils -normalizeInlineList (Code a1 x1 : Code a2 x2 : ils) | a1 == a2 - = normalizeInlineList $ Code a1 (x1 ++ x2) : ils +normalizeInlineList (Code _ x1 : Code _ x2 : ils) + = normalizeInlineList $ Code nullAttr (x1 ++ x2) : ils normalizeInlineList (RawInline f1 x1 : RawInline f2 x2 : ils) | f1 == f2 = normalizeInlineList $ RawInline f1 (x1 ++ x2) : ils normalizeInlineList (Span a1 x1 : Span a2 x2 : ils) | a1 == a2 -- cgit v1.2.3