Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

More throwError in place of fail.

Browse source
This commit is contained in:
John MacFarlane 2019-09-28 14:45:38 -07:00
parent 63a1e05dd1
commit 03d4e6b9ef
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Text/Pandoc/Writers/Docx.hs
View file

@ -95,6 +95,7 @@ instance Semigroup EnvProps where
instance Monoid EnvProps where instance Monoid EnvProps where
mempty = EnvProps Nothing [] mempty = EnvProps Nothing []
mappend = (<>)
squashProps :: EnvProps -> [Element] squashProps :: EnvProps -> [Element]
squashProps (EnvProps Nothing es) = es squashProps (EnvProps Nothing es) = es

3
src/Text/Pandoc/Writers/Muse.hs
View file

@ -629,7 +629,8 @@ inlineToMuse (Code _ str) = do
then "<code>" <> text (substitute "</code>" "<</code><code>/code>" str) <> "</code>" then "<code>" <> text (substitute "</code>" "<</code><code>/code>" str) <> "</code>"
else "=" <> text str <> "=" else "=" <> text str <> "="
inlineToMuse Math{} = inlineToMuse Math{} =
Prelude.fail "Math should be expanded before normalization" throwError $ PandocShouldNeverHappenError
"Math should be expanded before normalization"
inlineToMuse (RawInline (Format f) str) = do inlineToMuse (RawInline (Format f) str) = do
modify $ \st -> st { stUseTags = False } modify $ \st -> st { stUseTags = False }
return $ "<literal style=\"" <> text f <> "\">" <> text str <> "</literal>" return $ "<literal style=\"" <> text f <> "\">" <> text str <> "</literal>"