diff options
Diffstat (limited to 'libraries/base/Data/Foldable.hs')
| -rw-r--r-- | libraries/base/Data/Foldable.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Data/Foldable.hs b/libraries/base/Data/Foldable.hs index 1847c47e74..acd06c1382 100644 --- a/libraries/base/Data/Foldable.hs +++ b/libraries/base/Data/Foldable.hs @@ -1140,7 +1140,7 @@ minimumBy :: Foldable t => (a -> a -> Ordering) -> t a -> a minimumBy cmp = fromMaybe (errorWithoutStackTrace "minimumBy: empty structure") . foldl' min' Nothing where - min' mx y = Just $ case mx of + min' mx y = Just $! case mx of Nothing -> y Just x -> case cmp x y of GT -> y |