From ef2c970d0e87c0c4e740c0c5a82a0534161f6f91 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 2 Apr 2019 16:33:59 -0700 Subject: [PATCH] Fix harmless error in file-scope code. Closes #5422. --- src/Text/Pandoc/App.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index b0527cd79..fe3f37db8 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -256,11 +256,11 @@ convertWithOpts opts = do case reader of TextReader r | optFileScope opts || readerName == "json" -> - mconcat <$> mapM (readSource >=> r readerOpts) sources + mconcat <$> mapM (readSource >=> r readerOpts) sources' | otherwise -> readSources sources' >>= r readerOpts ByteStringReader r -> - mconcat <$> mapM (readFile' >=> r readerOpts) sources + mconcat <$> mapM (readFile' >=> r readerOpts) sources' when (readerName == "markdown_github" ||