@@ -55,6 +55,8 @@ import qualified Data.Foldable as F
5555import qualified Data.Map as M
5656import Data.Char (isDigit, isSpace)
5757import Data.Maybe (fromMaybe)
58+import Text.Printf (printf)
59+import Debug.Trace (trace)
5860
5961-- | Read mediawiki from an input string and return a Pandoc document.
6062readMediaWiki :: ReaderOptions -- ^ Reader options
@@ -187,7 +189,10 @@ parseMediaWiki = do
187189--
188190
189191block :: MWParser Blocks
190−block = mempty <$ skipMany1 blankline
192+block = do
193+ tr <- getOption readerTrace
194+ pos <- getPosition
195+ res <- mempty <$ skipMany1 blankline
191196 <|> table
192197 <|> header
193198 <|> hrule
@@ -199,6 +204,10 @@ block = mempty <$ skipMany1 blankline
199204 <|> blockTag
200205 <|> (B.rawBlock "mediawiki" <$> template)
201206 <|> para
207+ when tr $
208+ trace (printf "line %d: %s" (sourceLine pos)
209+ (take 60 $ show $ B.toList res)) (return ())
210+ return res
202211
203212para :: MWParser Blocks
204213para = do