Fix harmless error in file-scope code.

Closes #5422.
This commit is contained in:
John MacFarlane 2019-04-02 16:33:59 -07:00
parent 45944b51a0
commit ef2c970d0e

View file

@ -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" ||