@@ -255,13 +255,17 @@ convertWithOpts opts = do
255 let sourceToDoc :: [FilePath] -> PandocIO Pandoc
255 let sourceToDoc :: [FilePath] -> PandocIO Pandoc
256 sourceToDoc sources' =
256 sourceToDoc sources' =
257 case reader of
257 case reader of
258− TextReader r
258+ TextReader r
259− | optFileScope opts || readerNameBase == "json" ->
259+ | readerNameBase == "json" ->
260+ mconcat <$> mapM (readSource >=> r readerOpts) sources'
261+ | optFileScope opts ->
262+ -- Read source and convert tabs (see #6709)
263+ let readSource' = fmap convertTabs . readSource
260− mconcat <$> mapM (readSource >=> r readerOpts) sources'
264+ in mconcat <$> mapM (readSource' >=> r readerOpts) sources'
261− | otherwise ->
265+ | otherwise ->
262− readSources sources' >>= r readerOpts
266+ readSources sources' >>= r readerOpts
263− ByteStringReader r ->
267+ ByteStringReader r ->
264− mconcat <$> mapM (readFile' >=> r readerOpts) sources'
268+ mconcat <$> mapM (readFile' >=> r readerOpts) sources'
267 when (readerNameBase == "markdown_github" ||
271 when (readerNameBase == "markdown_github" ||