diff --git a/libraries/base/Data/List.hs b/libraries/base/Data/List.hs index 4796055ddb2b2769adec6cde20ac3fdad6454f37..09aed9d324eb53d3873d993f56a5982717e600cd 100644 --- a/libraries/base/Data/List.hs +++ b/libraries/base/Data/List.hs @@ -519,7 +519,7 @@ insertBy cmp x ys@(y:ys') -- It is a special case of 'Data.List.maximumBy', which allows the -- programmer to supply their own comparison function. maximum :: (Ord a) => [a] -> a -{-# NOINLINE [1] maximum #-} +{-# INLINE [1] maximum #-} maximum [] = errorEmptyList "maximum" maximum xs = foldl1 max xs @@ -540,7 +540,7 @@ strictMaximum xs = foldl1' max xs -- It is a special case of 'Data.List.minimumBy', which allows the -- programmer to supply their own comparison function. minimum :: (Ord a) => [a] -> a -{-# NOINLINE [1] minimum #-} +{-# INLINE [1] minimum #-} minimum [] = errorEmptyList "minimum" minimum xs = foldl1 min xs