diff options
| author | Joseph C. Sible <josephcsible@users.noreply.github.com> | 2020-03-30 00:11:05 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-03-29 21:11:05 -0700 |
| commit | 377efd0ce7736685c2a43842743a11ae01ed0a0b (patch) | |
| tree | fdb71f111bce17b9e8a5556c0f89739ac35eec16 /src/Text/Pandoc/Readers/JATS.hs | |
| parent | 40fd20d43fc2431e411554c138cb6e7d15654917 (diff) | |
| download | pandoc-377efd0ce7736685c2a43842743a11ae01ed0a0b.tar.gz | |
Clean up some fmaps (#6226)
* Avoid fmapping when we're just binding right after anyway
* Clean up unnecessary fmaps in the LaTeX reader
Diffstat (limited to 'src/Text/Pandoc/Readers/JATS.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 50e1e519a..597e798ab 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -164,9 +164,9 @@ parseBlock (Elem e) = "bullet" -> bulletList <$> listitems listType -> do let start = fromMaybe 1 $ - (textContent <$> (filterElement (named "list-item") e - >>= filterElement (named "label"))) - >>= safeRead + (filterElement (named "list-item") e + >>= filterElement (named "label")) + >>= safeRead . textContent orderedListWith (start, parseListStyleType listType, DefaultDelim) <$> listitems "def-list" -> definitionList <$> deflistitems |