From b8e0d574b1013e28b238741ad8bf69e5e0af16ee Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 30 Mar 2022 13:19:09 -0700
Subject: [PATCH] STrictness improvement in RTF reader.
---
src/Text/Pandoc/Readers/RTF.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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