@@ -121,10 +121,11 @@ parseNewParagraph = do
121121-- Parser: [ManToken] -> Pandoc
122122--
123123
124−msatisfy :: (Show t, Stream s m t) => (t -> Bool) -> ParserT s st m t
124+msatisfy :: Monad m => (ManToken -> Bool) -> ParserT [ManToken] st m ManToken
125125msatisfy predic = tokenPrim show nextPos testTok
126126 where
127127 testTok t = if predic t then Just t else Nothing
128+ nextPos _pos _x (MMacro _ _ pos':_) = pos'
128129 nextPos pos _x _xs = updatePosString
129130 (setSourceColumn
130131 (setSourceLine pos $ sourceLine pos + 1) 1) ""