inline MkSolo usages when needed

Author: L0neGamer

containers-tests/tests/intmap-strictness.hs

@@ -73,9 +73,9 @@ prop_strictFromSet fun set =
 
 prop_strictFromSetA :: Func Key (Bot A) -> IntSet -> Property
 prop_strictFromSetA fun set =
-  isBottom (getSolo (M.fromSetA f set)) === any (isBottom . getSolo . f) (IntSet.toList set)
+  isBottom (getSolo (M.fromSetA (MkSolo . f) set)) === any (isBottom . f) (IntSet.toList set)
   where
-    f = MkSolo . applyFunc fun
+    f = applyFunc fun
 
 prop_lazyFromSet :: Func Key (Bot A) -> IntSet -> Property
 prop_lazyFromSet fun set = isNotBottomProp (L.fromSet f set)

containers-tests/tests/map-strictness.hs

@@ -137,9 +137,9 @@ prop_strictFromSet fun set =
 
 prop_strictFromSetA :: Func OrdA (Bot A) -> Set OrdA -> Property
 prop_strictFromSetA fun set =
-  isBottom (getSolo (M.fromSetA f set)) === any (isBottom . getSolo . f) (Set.toList set)
+  isBottom (getSolo (M.fromSetA (MkSolo . f) set)) === any (isBottom . f) (Set.toList set)
   where
-    f = MkSolo . applyFunc fun
+    f = applyFunc fun
 
 prop_lazyFromSet :: Func OrdA (Bot A) -> Set OrdA -> Property
 prop_lazyFromSet fun set = isNotBottomProp (L.fromSet f set)