diff options
author | John MacFarlane <jgm@berkeley.edu> | 2019-09-28 14:45:38 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-09-28 14:45:38 -0700 |
commit | 03d4e6b9ef87d4e6ed018c93b358f8557f8f7388 (patch) | |
tree | 48a323c8c0371d44480e41dbe1be0da6cd44d8ae /src/Text/Pandoc/Writers/Docx.hs | |
parent | 63a1e05dd1eb041aee55a5c5c4d0d84a035348b2 (diff) | |
download | pandoc-03d4e6b9ef87d4e6ed018c93b358f8557f8f7388.tar.gz |
More throwError in place of fail.
Diffstat (limited to 'src/Text/Pandoc/Writers/Docx.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 30c604058..73ed095c1 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -95,6 +95,7 @@ instance Semigroup EnvProps where instance Monoid EnvProps where mempty = EnvProps Nothing [] + mappend = (<>) squashProps :: EnvProps -> [Element] squashProps (EnvProps Nothing es) = es |