diff options
| author | chessai <chessai1996@gmail.com> | 2020-11-06 11:44:33 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-11-30 19:47:40 -0500 |
| commit | 6af074cecdee533791943af1191541f82abc34c4 (patch) | |
| tree | 37d12e81cee1e3c52457d4b2e241760581ffef3f | |
| parent | 4d79ef6599f44b5ab33cbd89fec96ebfac0794a1 (diff) | |
| download | haskell-6af074cecdee533791943af1191541f82abc34c4.tar.gz | |
Apply suggestion 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 |