@@ -429,11 +429,11 @@ satisfyTok :: PandocMonad m => (Tok -> Bool) -> LP m Tok
429429satisfyTok f = do
430430 doMacros -- apply macros on remaining input stream
431431 res <- tokenPrim (T.unpack . untoken) updatePos matcher
432− updateState $ \st -> st{ sRawTokens =
433− if sEnableWithRaw st
434− then IntMap.map (res:) $ sRawTokens st
435− else sRawTokens st }
436− return res
432+ updateState $ \st ->
433+ if sEnableWithRaw st
434+ then st{ sRawTokens = IntMap.map (res:) $ sRawTokens st }
435+ else st
436+ return $! res
437437 where matcher t | f t = Just t
438438 | otherwise = Nothing
439439 updatePos :: SourcePos -> Tok -> [Tok] -> SourcePos