STrictness improvement in RTF reader.

2022-03-30 13:19:09 -07:00 · 2022-03-30 13:19:09 -07:00 · b8e0d574b1
commit b8e0d574b1
parent ac2bf2f372
1 changed files with 2 additions and 1 deletions
--- a/src/Text/Pandoc/Readers/RTF.hs
+++ b/src/Text/Pandoc/Readers/RTF.hs
@ -1,4 +1,5 @@
 {-# LANGUAGE FlexibleContexts  #-}
+{-# LANGUAGE BangPatterns      #-}
 {-# LANGUAGE OverloadedStrings #-}
 {- |
   Module      : Text.Pandoc.Readers.RTF
@ -254,7 +255,7 @@ tok = do
       else do
         let pstr = T.pack rest
         case TR.decimal pstr of
-           Right (i,_) ->
+           Right (!i,_) ->
                return $! Just $! if hyph
                                     then (-1) * i
                                     else i