diff options
| author | Joseph C. Sible <josephcsible@users.noreply.github.com> | 2020-03-29 01:47:24 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-03-28 22:47:24 -0700 |
| commit | c812ff7e897fcc43448b26e5ce53480eeb5a81f9 (patch) | |
| tree | 8de98355a2b00126eb1e9b2ae4ff0e5417a4ce1a | |
| parent | 09a5a1f447b9994ac2b4f088e09f8f17effeb578 (diff) | |
| download | pandoc-c812ff7e897fcc43448b26e5ce53480eeb5a81f9.tar.gz | |
Simplify fixAuthors (#6223)
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 6b375a51c..e1a8066ba 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -192,12 +192,7 @@ bodyPartsToMeta bps = do return $ Meta mp' fixAuthors :: MetaValue -> MetaValue -fixAuthors (MetaBlocks blks) = - MetaList $ map g $ filter f blks - where f (Para _) = True - f _ = False - g (Para ils) = MetaInlines ils - g _ = MetaInlines [] +fixAuthors (MetaBlocks blks) = MetaList [MetaInlines ils | Para ils <- blks] fixAuthors mv = mv isInheritedFromStyles :: (Eq (StyleName s), HasStyleName s, HasParentStyle s) => [StyleName s] -> s -> Bool |