03d4e6b · typeable/pandoc

git.iko.soy/typeable/pandoc

More throwError in place of fail.

commit03d4e6b9ef87d4e6ed018c93b358f8557f8f7388 authorJohn MacFarlane <jgm@berkeley.edu> dateSat 28 Sep 2019, 14:45 (7 years ago) parent63a1e05

2 files changed+3−1

unifiedsplit

src/Text/Pandoc/Writers/Docx.hs+1

@@ -95,6 +95,7 @@ instance Semigroup EnvProps where

9595

9696instance Monoid EnvProps where

9797 mempty = EnvProps Nothing []

98+ mappend = (<>)

9899

99100squashProps :: EnvProps -> [Element]

100101squashProps (EnvProps Nothing es) = es

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

@@ -629,7 +629,8 @@ inlineToMuse (Code _ str) = do

629629 then "<code>" <> text (substitute "</code>" "<</code><code>/code>" str) <> "</code>"

630630 else "=" <> text str <> "="

631631inlineToMuse Math{} =

632− Prelude.fail "Math should be expanded before normalization"

632+ throwError $ PandocShouldNeverHappenError

633+ "Math should be expanded before normalization"

633634inlineToMuse (RawInline (Format f) str) = do

634635 modify $ \st -> st { stUseTags = False }

635636 return $ "<literal style=\"" <> text f <> "\">" <> text str <> "</literal>"