03d4e6b · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

More throwError in place of fail.

03d4e6bJohn MacFarlane7 years ago

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

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

96instance Monoid EnvProps where

97 mempty = EnvProps Nothing []

98+ mappend = (<>)

99squashProps :: EnvProps -> [Element]

100squashProps :: EnvProps -> [Element]

100squashProps (EnvProps Nothing es) = es

101squashProps (EnvProps Nothing es) = es

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

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

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

630 else "=" <> text str <> "="

631inlineToMuse Math{} =

632+ throwError $ PandocShouldNeverHappenError

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

633+ "Math should be expanded before normalization"

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

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

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

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

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

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