commit 4115e196bde073d5deaa3759807a8647f3f3c6fa Author: Herbert Valerio Riedel Date: Mon Nov 17 09:53:24 2014 +0100 Add support for `deepseq-1.4.0.0` (addresses #100) The default method implementation has changed in `deepseq-1.4.0.0`. (see haskell/deepseq#1 for details). This simply sets the `rnf` implementation explicitly to avoid relying on the default method's semantics. diff --git a/Data/Text.hs b/Data/Text.hs index 3bd34a7..b826acd 100644 --- a/Data/Text.hs +++ b/Data/Text.hs @@ -199,7 +199,7 @@ import Prelude (Char, Bool(..), Int, Maybe(..), String, (&&), (||), (+), (-), (.), ($), ($!), (>>), not, return, otherwise, quot) #if defined(HAVE_DEEPSEQ) -import Control.DeepSeq (NFData) +import Control.DeepSeq (NFData(rnf)) #endif #if defined(ASSERTS) import Control.Exception (assert) @@ -346,7 +346,7 @@ instance Exts.IsList Text where #endif #if defined(HAVE_DEEPSEQ) -instance NFData Text +instance NFData Text where rnf !_ = () #endif -- | This instance preserves data abstraction at the cost of inefficiency.