Thu Sep 24 22:19:09 CEST 2009  vandijk.roel@gmail.com
  * Control.Parallel.Strategies: added missing NFData instances for many types from the base library
     - Foreign.C.Error, Foreign.C.Types
     - Data.Version, Data.Fixed, Data.STRef, Data.IORef, Data.Unique
     - System.Exit, System.IO, System.IO.Error, System.Mem.StableName

New patches:

[Control.Parallel.Strategies: added missing NFData instances for many types from the base library
vandijk.roel@gmail.com**20090924201909
 Ignore-this: 444d8ace61b17dc0a97e5909ce34d454
    - Foreign.C.Error, Foreign.C.Types
    - Data.Version, Data.Fixed, Data.STRef, Data.IORef, Data.Unique
    - System.Exit, System.IO, System.IO.Error, System.Mem.StableName
] {
hunk ./Control/Parallel/Strategies.hs 53
 import Data.Array
 import Data.Complex
 import Data.Int
+import qualified Foreign.C.Error
+import qualified Foreign.C.Types
 import qualified Data.IntMap (IntMap, toList)
 import qualified Data.IntSet (IntSet, toList)
 import qualified Data.Map (Map, toList)
hunk ./Control/Parallel/Strategies.hs 60
 import qualified Data.Set (Set, toList)
 import qualified Data.Tree (Tree(..))
+import qualified Data.Version (Version(..))
+import qualified Data.Fixed (Fixed, E6, E12, resolution)
+import qualified Data.STRef (STRef)
+import qualified Data.IORef (IORef)
+import qualified Data.Unique (Unique)
 import Data.Word
hunk ./Control/Parallel/Strategies.hs 66
+import qualified System.Exit (ExitCode(..))
+import qualified System.IO
+import qualified System.IO.Error
+import qualified System.Mem.StableName
 
 import Prelude hiding (seq)
 import qualified Prelude (seq)
hunk ./Control/Parallel/Strategies.hs 428
 instance NFData Bool
 instance NFData ()
 
+-- Foreign C
+instance NFData Foreign.C.Types.CChar
+instance NFData Foreign.C.Types.CSChar
+instance NFData Foreign.C.Types.CUChar
+instance NFData Foreign.C.Types.CShort
+instance NFData Foreign.C.Types.CUShort
+instance NFData Foreign.C.Types.CInt
+instance NFData Foreign.C.Types.CUInt
+instance NFData Foreign.C.Types.CLong
+instance NFData Foreign.C.Types.CULong
+instance NFData Foreign.C.Types.CPtrdiff
+instance NFData Foreign.C.Types.CSize
+instance NFData Foreign.C.Types.CWchar
+instance NFData Foreign.C.Types.CSigAtomic
+instance NFData Foreign.C.Types.CLLong
+instance NFData Foreign.C.Types.CULLong
+instance NFData Foreign.C.Types.CIntPtr
+instance NFData Foreign.C.Types.CUIntPtr
+instance NFData Foreign.C.Types.CIntMax
+instance NFData Foreign.C.Types.CUIntMax
+instance NFData Foreign.C.Types.CClock
+instance NFData Foreign.C.Types.CTime
+instance NFData Foreign.C.Types.CFloat
+instance NFData Foreign.C.Types.CDouble
+instance NFData Foreign.C.Types.CLDouble
+instance NFData Foreign.C.Types.CFile
+instance NFData Foreign.C.Types.CFpos
+instance NFData Foreign.C.Types.CJmpBuf
+
+instance NFData Foreign.C.Error.Errno where
+    rnf (Foreign.C.Error.Errno n) = rnf n
+
+--Fixed resolution numbers.
+instance NFData Data.Fixed.E6
+instance NFData Data.Fixed.E12
+instance NFData a => NFData (Data.Fixed.Fixed a) where
+    rnf f = f `seq` ()
+
+--System
+instance NFData System.IO.IOMode
+instance NFData System.IO.SeekMode
+
+instance NFData System.IO.BufferMode where
+    rnf System.IO.NoBuffering = ()
+    rnf System.IO.LineBuffering = ()
+    rnf (System.IO.BlockBuffering x) = rnf x
+
+instance NFData System.IO.Error.IOErrorType where
+    rnf e = e `seq` ()
+
+instance NFData (System.Mem.StableName.StableName a) where
+    rnf n = n `seq` ()
+
 -----------------------------------------------------------------------------
 -- 			Various library types						    
 -----------------------------------------------------------------------------
hunk ./Control/Parallel/Strategies.hs 508
 instance NFData Data.IntSet.IntSet where
     rnf = rnf . Data.IntSet.toList
 
+instance NFData Data.Version.Version where
+    rnf (Data.Version.Version xs ys) = rnf xs `seq` rnf ys
+
+instance NFData (Data.STRef.STRef s a) where
+    rnf r = r `seq` ()
+
+instance NFData (Data.IORef.IORef a) where
+    rnf r = r `seq` ()
+
+instance NFData Data.Unique.Unique where
+    rnf u = u `seq` ()
+
+instance NFData System.Exit.ExitCode where
+    rnf System.Exit.ExitSuccess = ()
+    rnf (System.Exit.ExitFailure i) = rnf i
+
 -----------------------------------------------------------------------------
 -- 			Lists						    
 -----------------------------------------------------------------------------
}

Context:

[Use -feager-blackholing with GHC >= 6.11
Simon Marlow <marlowsd@gmail.com>**20081216152549] 
[TAG 1.1.0.0
Duncan Coutts <duncan@haskell.org>**20081101214141] 
[Bump version to 1.1.0.0
Duncan Coutts <duncan@haskell.org>**20081101213458
 From version 1.0.0.1 because par and pseq changed from infixl 9
 to infixr 0 which is an api change. Previously they were missing
 fixity decls which meant they defaulted to infixl 9. The reason
 they were missing the fixity decls was because they were locally
 rebound so to make a consistent api between ghc and hugs (with a
 make a consitent api between ghc and hugs (using cpp).
 bit of cpp to provide alternative implementations). Presumably
 when this was done the fixity decls were forgotten.
] 
[add a SPECIALISE for seqListN at type Int
Simon Marlow <marlowsd@gmail.com>**20081022090925] 
[add a fixity for seq
Simon Marlow <marlowsd@gmail.com>**20081022090823] 
[we rebound par and pseq, but forgot to set their fixity
Simon Marlow <marlowsd@gmail.com>**20081022085835] 
[TAG 6.10 branch has been forked
Ian Lynagh <igloo@earth.li>**20080919123439] 
Patch bundle hash:
b26417617ce790af2b9f3ee16c34e362ecfecb05