Slower Data.Foldable.maximumBy,minimumBy
## Summary
`Data.Foldable.maximumBy` and `Data.Foldable.minimumBy` are slower in 9.2.5 compared to 8.10.7.
8.10.7:
```
benchmarking maximumBy
time 5.418 ms (5.362 ms .. 5.467 ms)
0.999 R² (0.998 R² .. 1.000 R²)
mean 5.470 ms (5.432 ms .. 5.512 ms)
std dev 114.4 μs (92.09 μs .. 148.8 μs)
benchmarking minimumBy
time 5.470 ms (5.454 ms .. 5.484 ms)
1.000 R² (1.000 R² .. 1.000 R²)
mean 5.459 ms (5.451 ms .. 5.467 ms)
std dev 23.79 μs (19.56 μs .. 30.25 μs)
```
9.2.5:
```
benchmarking maximumBy
time 8.138 ms (8.085 ms .. 8.191 ms)
1.000 R² (1.000 R² .. 1.000 R²)
mean 8.158 ms (8.127 ms .. 8.194 ms)
std dev 95.65 μs (69.92 μs .. 152.0 μs)
benchmarking minimumBy
time 7.980 ms (7.945 ms .. 8.019 ms)
1.000 R² (0.999 R² .. 1.000 R²)
mean 7.944 ms (7.911 ms .. 7.971 ms)
std dev 89.16 μs (71.76 μs .. 110.6 μs)
```
```hs
import Criterion.Main
import Data.Foldable
main :: IO ()
main = defaultMain
[ env (pure xs_) $ \xs -> bgroup ""
[ bench "maximumBy" $ whnf (maximumBy compare) xs
, bench "minimumBy" $ whnf (minimumBy compare) xs
]
]
where
xs_ = [1..2^20] :: [Int]
```
issue