Repository : ssh://darcs.haskell.org//srv/darcs/packages/deepseq On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4682d892b8224df8f340963d5f0ac5f768267de6 >--------------------------------------------------------------- commit 4682d892b8224df8f340963d5f0ac5f768267de6 Author: Herbert Valerio Riedel <[email protected]> Date: Wed Sep 7 13:20:53 2011 +0200 Add NFData instancess for (->), Fixed, Version (#5465) Addresses #5465 >--------------------------------------------------------------- Control/DeepSeq.hs | 7 +++++++ 1 files changed, 7 insertions(+), 0 deletions(-) diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs index a7ed499..41ccec3 100644 --- a/Control/DeepSeq.hs +++ b/Control/DeepSeq.hs @@ -54,6 +54,8 @@ import Data.Word import Data.Ratio import Data.Complex import Data.Array +import Data.Fixed +import Data.Version infixr 0 $!! @@ -130,6 +132,8 @@ instance NFData Word16 instance NFData Word32 instance NFData Word64 +instance NFData (Fixed a) + --Rational and complex numbers. instance (Integral a, NFData a) => NFData (Ratio a) where @@ -148,6 +152,9 @@ instance (NFData a, NFData b) => NFData (Either a b) where rnf (Left x) = rnf x rnf (Right y) = rnf y +instance NFData Data.Version.Version where + rnf (Data.Version.Version branch tags) = rnf branch `seq` rnf tags + instance NFData a => NFData [a] where rnf [] = () rnf (x:xs) = rnf x `seq` rnf xs _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
