diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-04-02 16:33:59 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-04-02 16:33:59 -0700 |
| commit | ef2c970d0e87c0c4e740c0c5a82a0534161f6f91 (patch) | |
| tree | 55a657d46e65d6ccbbc1b904ddf065086855674d | |
| parent | 45944b51a0bd1d5149c968f90dc0a5e0bf4b0d6c (diff) | |
| download | pandoc-ef2c970d0e87c0c4e740c0c5a82a0534161f6f91.tar.gz | |
Fix harmless error in file-scope code.
Closes #5422.
| -rw-r--r-- | src/Text/Pandoc/App.hs | 4 |
1 files 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" || |