use OneTuple to get Solo

Author: L0neGamer

containers-tests/containers-tests.cabal

@@ -47,6 +47,7 @@ common test-deps
   import: deps
   build-depends:
       containers-tests
+    , OneTuple
     , QuickCheck                  >=2.7.1
     , tasty
     , tasty-hunit

containers-tests/tests/intmap-strictness.hs

@@ -17,10 +17,10 @@ import Data.Ord (comparing)
 import Test.ChasingBottoms.IsBottom
 import Test.Tasty (TestTree, defaultMain, testGroup)
 import Test.Tasty.QuickCheck (testProperty)
+import Data.Tuple.Solo (Solo (MkSolo), getSolo)
 import Test.QuickCheck
 import Test.QuickCheck.Poly (A, B, C)
 import Test.QuickCheck.Function (apply)
-import Data.Tuple (Solo (..), getSolo)
 
 import Data.IntSet (IntSet)
 import qualified Data.IntSet as IntSet

containers-tests/tests/map-strictness.hs

@@ -15,13 +15,13 @@ import qualified Data.List.NonEmpty as NE
 import Data.Ord (Down(..), comparing)
 import Data.Maybe (catMaybes, mapMaybe)
 import Data.Semigroup (Arg(..))
+import Data.Tuple.Solo (Solo (MkSolo), getSolo)
 import Test.ChasingBottoms.IsBottom (bottom, isBottom)
 import Test.Tasty (TestTree, defaultMain, testGroup)
 import Test.Tasty.QuickCheck (testProperty)
 import Test.QuickCheck
 import Test.QuickCheck.Function
 import Test.QuickCheck.Poly (A, B, C, OrdA, OrdB)
-import Data.Tuple (Solo (..), getSolo)
 
 import Data.Map.Strict (Map)
 import qualified Data.Map.Strict as M