5ea4363 · typeable/pandoc

60import Text.Pandoc.Builder

61import Text.Pandoc.Class (PandocMonad, PandocPure, getResourcePath, lookupEnv,

62 readFileFromDirs, report, setResourcePath,

63− setTranslations, translateTerm)

63+ setTranslations, translateTerm, trace)

64import Text.Pandoc.Error (PandocError (PandocMacroLoop, PandocParseError, PandocParsecError))

65import Text.Pandoc.Highlighting (fromListingsLanguage, languagesByExtension)

66import Text.Pandoc.ImageSize (numUnit, showFl)

74import qualified Text.Pandoc.Translations as Translations

75import Text.Pandoc.Walk

76import Text.Parsec.Pos

77+import qualified Text.Pandoc.Builder as B

77

78

78-- for debugging:

79-- for debugging:

79-- import Text.Pandoc.Extensions (getDefaultExtensions)

80-- import Text.Pandoc.Extensions (getDefaultExtensions)

2532

2533

2534

2534block :: PandocMonad m => LP m Blocks

2535block :: PandocMonad m => LP m Blocks

2536+block = do

2535−block = (mempty <$ spaces1)

2537+ res <- (mempty <$ spaces1)

2536 <|> environment

2538 <|> environment

2537 <|> include

2539 <|> include

2538 <|> macroDef

2540 <|> macroDef

2539 <|> blockCommand

2541 <|> blockCommand

2540 <|> paragraph

2542 <|> paragraph

2541 <|> grouped block

2543 <|> grouped block

2544+ trace (take 60 $ show $ B.toList res)

2545+ return res

2542

2546

2543blocks :: PandocMonad m => LP m Blocks

2547blocks :: PandocMonad m => LP m Blocks

2544blocks = mconcat <$> many block

2548blocks = mconcat <$> many block