diff options
author | chessai <chessai1996@gmail.com> | 2020-11-06 11:44:33 -0500 |
---|---|---|
committer | chessai <chessai1996@gmail.com> | 2020-11-06 11:44:33 -0500 |
commit | 2358b3f5f91fad01122a72e02075d5c22c9ff3cd (patch) | |
tree | 7a393c25f908f69e17b48928e7969b5fa9a234d3 | |
parent | ff61ba8e15ff75832e50d21f8459b902af0e6b52 (diff) | |
download | haskell-wip/data-dot-foldable-optimisations.tar.gz |
Apply suggestion to libraries/base/Data/Foldable.hswip/data-dot-foldable-optimisations
-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 |