diff options
| author | chessai <chessai1996@gmail.com> | 2020-11-06 11:43:52 -0500 |
|---|---|---|
| committer | Hécate Moonlight <hecate+gitlab@glitchbra.in> | 2021-02-17 09:13:48 +0100 |
| commit | 2d44f57857044cfbd928b8626d0cee01237cff0e (patch) | |
| tree | e2019934d363729f6fc63d34929e7a61917d77c7 | |
| parent | 945deddd4ec3c472c0567d144bb080dc2eedbfb1 (diff) | |
| download | haskell-2d44f57857044cfbd928b8626d0cee01237cff0e.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 aa823a160f..60dcca95ac 100644 --- a/libraries/base/Data/Foldable.hs +++ b/libraries/base/Data/Foldable.hs @@ -1275,7 +1275,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 |