@@ -60,7 +60,7 @@ import Text.Pandoc.BCP47 (Lang (..), renderLang)
6060import Text.Pandoc.Builder
6161import Text.Pandoc.Class (PandocMonad, PandocPure, getResourcePath, lookupEnv,
6262 readFileFromDirs, report, setResourcePath,
63− setTranslations, translateTerm)
63+ setTranslations, translateTerm, trace)
6464import Text.Pandoc.Error (PandocError (PandocMacroLoop, PandocParseError, PandocParsecError))
6565import Text.Pandoc.Highlighting (fromListingsLanguage, languagesByExtension)
6666import Text.Pandoc.ImageSize (numUnit, showFl)
@@ -74,6 +74,7 @@ import Text.Pandoc.Shared
7474import qualified Text.Pandoc.Translations as Translations
7575import Text.Pandoc.Walk
7676import Text.Parsec.Pos
77+import qualified Text.Pandoc.Builder as B
7778
7879-- for debugging:
7980-- import Text.Pandoc.Extensions (getDefaultExtensions)
@@ -2532,13 +2533,16 @@ addTableCaption = walkM go
25322533
25332534
25342535block :: PandocMonad m => LP m Blocks
2535−block = (mempty <$ spaces1)
2536+block = do
2537+ res <- (mempty <$ spaces1)
25362538 <|> environment
25372539 <|> include
25382540 <|> macroDef
25392541 <|> blockCommand
25402542 <|> paragraph
25412543 <|> grouped block
2544+ trace (take 60 $ show $ B.toList res)
2545+ return res
25422546
25432547blocks :: PandocMonad m => LP m Blocks
25442548blocks = mconcat <$> many block