From ff8e59a17412e7a083ab5ce53a1af2db59025a44 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 7 Mar 2018 19:11:27 +0300 Subject: Muse writer: output smallcaps as emphasis --- src/Text/Pandoc/Writers/Muse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 156958ab7..28cfb0ef4 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -369,7 +369,7 @@ inlineToMuse (Superscript lst) = do inlineToMuse (Subscript lst) = do contents <- inlineListToMuse lst return $ "" <> contents <> "" -inlineToMuse (SmallCaps lst) = inlineListToMuse lst +inlineToMuse (SmallCaps lst) = inlineToMuse (Emph lst) inlineToMuse (Quoted SingleQuote lst) = do contents <- inlineListToMuse lst return $ "‘" <> contents <> "’" -- cgit v1.2.3