RTF reader: increased stricness.

This leads to some performance improvements.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Readers/RTF.hs b/src/Text/Pandoc/Readers/RTF.hs
index 7408255ac..e781a9a09 100644
--- a/src/Text/Pandoc/Readers/RTF.hs
+++ b/src/Text/Pandoc/Readers/RTF.hs
@@ -269,7 +269,7 @@ tok = do
   unformattedText = do
     ts <-  filter (\c -> c /= '\r' && c /= '\n') <$>
            ( many1 (satisfy (\c -> not (isSpecial c) || c == '\r' || c == '\n')))
-    return $! UnformattedText $ T.pack ts
+    return $! UnformattedText $! T.pack ts
   grouped = do
     char '{'
     skipMany nl
@@ -345,7 +345,7 @@ addFormatting (props, txt) =
 addText :: PandocMonad m => Text -> RTFParser m ()
 addText t = do
   gs <- sGroupStack <$> getState
-  let props = case gs of
+  let !props = case gs of
                 (x:_) -> x
                 _ -> def
   updateState (\s -> s{ sTextContent = (props, t) : sTextContent s })