From 377efd0ce7736685c2a43842743a11ae01ed0a0b Mon Sep 17 00:00:00 2001
From: "Joseph C. Sible" <josephcsible@users.noreply.github.com>
Date: Mon, 30 Mar 2020 00:11:05 -0400
Subject: Clean up some fmaps (#6226)
* Avoid fmapping when we're just binding right after anyway
* Clean up unnecessary fmaps in the LaTeX reader
---
src/Text/Pandoc/Lua/Module/MediaBag.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src/Text/Pandoc/Lua/Module')
diff --git a/src/Text/Pandoc/Lua/Module/MediaBag.hs b/src/Text/Pandoc/Lua/Module/MediaBag.hs
index 769f7e110..3a296ef46 100644
--- a/src/Text/Pandoc/Lua/Module/MediaBag.hs
+++ b/src/Text/Pandoc/Lua/Module/MediaBag.hs
@@ -85,7 +85,7 @@ insertMediaFn fp optionalMime contents = do
-- | Returns iterator values to be used with a Lua @for@ loop.
items :: Lua NumResults
-items = stMediaBag <$> getCommonState >>= pushIterator
+items = getCommonState >>= pushIterator . stMediaBag
lookupMediaFn :: FilePath
-> Lua NumResults
--
cgit v1.2.3