Skip to content

Commit

Permalink
version note
Browse files Browse the repository at this point in the history
  • Loading branch information
Melanie Phoenix committed Jan 29, 2023
1 parent a1470da commit b267259
Showing 1 changed file with 9 additions and 3 deletions.
12 changes: 9 additions & 3 deletions Control/DeepSeq.hs
Original file line number Diff line number Diff line change
Expand Up @@ -499,7 +499,9 @@ instance NFData1 Ratio where
instance (NFData1 f, NFData1 g) => NFData1 (Compose f g) where
liftRnf r = liftRnf (liftRnf r) . getCompose

-- | @since 1.4.3.0
-- | Note: in @deepseq-1.5.0.0@ this instance's superclasses were changed.
--
-- @since 1.4.3.0
instance (NFData (f (g a))) => NFData (Compose f g a) where
rnf (Compose fga) = rnf fga

Expand All @@ -508,7 +510,9 @@ instance (NFData1 f, NFData1 g) => NFData1 (Functor.Sum f g) where
liftRnf rnf0 (Functor.InL l) = liftRnf rnf0 l
liftRnf rnf0 (Functor.InR r) = liftRnf rnf0 r

-- | @since 1.4.3.0
-- | Note: in @deepseq-1.5.0.0@ this instance's superclasses were changed.
--
-- @since 1.4.3.0
instance (NFData (f a), NFData (g a)) => NFData (Functor.Sum f g a) where
rnf (Functor.InL fa) = rnf fa
rnf (Functor.InR ga) = rnf ga
Expand All @@ -517,7 +521,9 @@ instance (NFData (f a), NFData (g a)) => NFData (Functor.Sum f g a) where
instance (NFData1 f, NFData1 g) => NFData1 (Functor.Product f g) where
liftRnf rnf0 (Functor.Pair f g) = liftRnf rnf0 f `seq` liftRnf rnf0 g

-- | @since 1.4.3.0
-- | Note: in @deepseq-1.5.0.0@ this instance's superclasses were changed.
--
-- @since 1.4.3.0
instance (NFData (f a), NFData (g a)) => NFData (Functor.Product f g a) where
rnf (Functor.Pair fa ga) = rnf fa `seq` rnf ga

Expand Down

0 comments on commit b267259

Please sign in to comment.