git.iko.soy/typeable/pandoc
on master help sign in
Support --trace in HTML reader.
cab4b82John MacFarlane
src/Text/Pandoc/Readers/HTML.hs+10−1
compare with master
unifiedsplit
@@ -50,6 +50,8 @@ import Data.Char ( isDigit )
50import Control.Monad ( liftM, guard, when, mzero )
50import Control.Monad ( liftM, guard, when, mzero )
51import Control.Applicative ( (<$>), (<$), (<*) )
51import Control.Applicative ( (<$>), (<$), (<*) )
52import Data.Monoid
52import Data.Monoid
53+import Text.Printf (printf)
54+import Debug.Trace (trace)
53
55
54isSpace :: Char -> Bool
56isSpace :: Char -> Bool
55isSpace ' ' = True
57isSpace ' ' = True
@@ -92,7 +94,10 @@ pHead = pInTags "head" $ pTitle <|> pMetaTag <|> (mempty <$ pAnyTag)
92 return mempty
94 return mempty
93
95
94block :: TagParser Blocks
96block :: TagParser Blocks
97+block = do
98+ tr <- getOption readerTrace
99+ pos <- getPosition
95−block = choice
100+ res <- choice
96 [ pPara
101 [ pPara
97 , pHeader
102 , pHeader
98 , pBlockQuote
103 , pBlockQuote
@@ -106,6 +111,10 @@ block = choice
106 , pDiv
111 , pDiv
107 , pRawHtmlBlock
112 , pRawHtmlBlock
108 ]
113 ]
114+ when tr $ trace (printf "line %d: %s" (sourceLine pos)
115+ (take 60 $ show $ B.toList res)) (return ())
116+ return res
117+
109
118
110pList :: TagParser Blocks
119pList :: TagParser Blocks
111pList = pBulletList <|> pOrderedList <|> pDefinitionList
120pList = pBulletList <|> pOrderedList <|> pDefinitionList