From 2aba4ba3d32ee98d8a3e9c51ba6ddf4d5d8adcd4 Mon Sep 17 00:00:00 2001
From: Torsten Schmits <git@tryp.io>
Date: Tue, 16 Aug 2022 18:36:18 +0200
Subject: [PATCH] Adapt the rename of the Solo constructor to MkSolo

Part of the proposal https://github.com/ghc-proposals/ghc-proposals/blob/master/proposals/0475-tuple-syntax.rst

Tracked by https://gitlab.haskell.org/ghc/ghc/-/issues/21294
---
 Control/DeepSeq.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
index 84af949..a635549 100644
--- a/Control/DeepSeq.hs
+++ b/Control/DeepSeq.hs
@@ -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)
@@ -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