@@ -77,11 +77,10 @@ import qualified Text.Pandoc.Builder
7777 spanWith, para, horizontalRule, blockQuote, bulletList, plain,
7878 orderedList, simpleTable, softbreak, codeBlockWith, imageWith, divWith,
7979 setMeta, definitionList, superscript, subscript)
80−import Text.Pandoc.Class (PandocMonad, report)
80+import Text.Pandoc.Class (PandocMonad(..))
8181import Text.Pandoc.Definition (Pandoc(..), Inline(Space),
8282 Block(BulletList, OrderedList), Attr, nullMeta, Meta, ListNumberStyle(..),
8383 ListNumberDelim(..))
84−import Text.Pandoc.Logging (LogMessage(ParsingTrace))
8584import Text.Pandoc.Options (ReaderOptions)
8685import Text.Pandoc.Parsing (readWithM, ParserT, stateOptions, ParserState,
8786 stateMeta', blanklines, registerHeader, spaceChar, emailAddress, uri, F, runF,
@@ -91,7 +90,7 @@ import Text.Parsec.Char (spaces, char, anyChar, newline, string, noneOf,
9190 alphaNum)
9291import Text.Parsec.Combinator (eof, choice, many1, manyTill, count, skipMany1,
9392 notFollowedBy, option)
94−import Text.Parsec.Prim (many, getPosition, try, updateState, getState)
93+import Text.Parsec.Prim (many, try, updateState, getState)
9594import Text.Parsec.Char (oneOf, space)
9695import Text.Parsec.Combinator (lookAhead, between)
9796import Text.Parsec.Prim ((<|>))
@@ -129,7 +128,6 @@ parseVimwiki = do
129128
130129block :: PandocMonad m => VwParser m Blocks
131130block = do
132− pos <- getPosition
133131 res <- choice [ mempty <$ blanklines
134132 , header
135133 , hrule
@@ -143,7 +141,7 @@ block = do
143141 , definitionList
144142 , para
145143 ]
146− report $ ParsingTrace (take 60 $ show $ toList res) pos
144+ trace (take 60 $ show $ toList res)
147145 return res
148146
149147blockML :: PandocMonad m => VwParser m Blocks