Skip to content

Commit

Permalink
Adapt the rename of the Solo constructor to MkSolo
Browse files Browse the repository at this point in the history
  • Loading branch information
tek committed Aug 16, 2022
1 parent f241315 commit 2aba4ba
Showing 1 changed file with 10 additions and 0 deletions.
10 changes: 10 additions & 0 deletions Control/DeepSeq.hs
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE EmptyCase #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ExplicitNamespaces #-}

#if __GLASGOW_HASKELL__ >= 811 && __GLASGOW_HASKELL__ < 901
-- For the Option instance (https://gitlab.haskell.org/ghc/ghc/issues/15028)
Expand Down Expand Up @@ -879,12 +881,20 @@ instance NFData CallStack where
#if MIN_VERSION_ghc_prim(0,7,0)
-- |@since 1.4.6.0
instance NFData a => NFData (Solo a) where
#if MIN_VERSION_ghc_prim(0,10,0)
rnf (MkSolo a) = rnf a
#else
rnf (Solo a) = rnf a
#endif
-- |@since 1.4.6.0
instance NFData1 Solo where
#if MIN_VERSION_ghc_prim(0,10,0)
liftRnf r (MkSolo a) = r a
#else
liftRnf r (Solo a) = r a
#endif
#endif
#endif

instance (NFData a, NFData b) => NFData (a,b) where rnf = rnf2
-- |@since 1.4.3.0
Expand Down

0 comments on commit 2aba4ba

Please sign in to comment.