LaTeX reader: avoid a thunk in sRawTokens.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
index bf1ebbb9c..8d7181689 100644
--- a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE FlexibleInstances     #-}
 {-# LANGUAGE FlexibleContexts      #-}
 {-# LANGUAGE LambdaCase            #-}
+{-# LANGUAGE BangPatterns          #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings     #-}
 {-# LANGUAGE ScopedTypeVariables   #-}
@@ -504,7 +505,9 @@ satisfyTok f = do
     res <- tokenPrim (T.unpack . untoken) updatePos matcher
     updateState $ \st ->
       if sEnableWithRaw st
-         then st{ sRawTokens = IntMap.map (res:) $ sRawTokens st }
+         then
+           let !newraws = IntMap.map (res:) $! sRawTokens st
+            in  st{ sRawTokens = newraws }
          else st
     return $! res
   where matcher t | f t       = Just t