diff options
| author | chessai <chessai1996@gmail.com> | 2020-11-06 11:43:52 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-11-30 19:47:40 -0500 |
| commit | 4d79ef6599f44b5ab33cbd89fec96ebfac0794a1 (patch) | |
| tree | 7bf464c5d0abc7dffb4839a3b3b0d013da0007ef | |
| parent | 49ebe369165c85ae4c2382b40e34bfa4f1e9da25 (diff) | |
| download | haskell-4d79ef6599f44b5ab33cbd89fec96ebfac0794a1.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 d945141ac6..1847c47e74 100644 --- a/libraries/base/Data/Foldable.hs +++ b/libraries/base/Data/Foldable.hs @@ -1118,7 +1118,7 @@ maximumBy :: Foldable t => (a -> a -> Ordering) -> t a -> a maximumBy cmp = fromMaybe (errorWithoutStackTrace "maximumBy: empty structure") . foldl' max' Nothing where - max' mx y = Just $ case mx of + max' mx y = Just $! case mx of Nothing -> y Just x -> case cmp x y of GT -> x |