@@ -168,6 +168,7 @@ import Prelude (Char, Bool(..), Maybe(..), String,
168168 (&&), (+), (-), (.), ($), (++),
169169 div, flip, fromIntegral, not, otherwise)
170170import qualified Prelude as P
171+import Control.DeepSeq (NFData(..))
171172import Data.Int (Int64)
172173import qualified Data.List as L
173174import Data.Char (isSpace)
@@ -206,6 +207,10 @@ instance Monoid Text where
206207instance IsString Text where
207208 fromString = pack
208209
210+instance NFData Text where
211+ rnf Empty = ()
212+ rnf (Chunk _ ts) = rnf ts
213+
209214-- | /O(n)/ Convert a 'String' into a 'Text'.
210215--
211216-- This function is subject to array fusion.