diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-03-30 13:19:09 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-03-30 13:19:09 -0700 |
| commit | b8e0d574b1013e28b238741ad8bf69e5e0af16ee (patch) | |
| tree | a0bae21e1709c6e91e8dab00b3ce6fd6bcfe528d /src/Text | |
| parent | ac2bf2f372ee0703a85a1c695b61e1ceda6375a3 (diff) | |
STrictness improvement in RTF reader.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/RTF.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/RTF.hs b/src/Text/Pandoc/Readers/RTF.hs index 7362a5e3d..7408255ac 100644 --- 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 |