diff options
Diffstat (limited to 'libraries/base')
| -rw-r--r-- | libraries/base/Data/Either.hs | 4 | ||||
| -rw-r--r-- | libraries/base/Data/Foldable.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/Data/Either.hs b/libraries/base/Data/Either.hs index 58987a3910..afd676d415 100644 --- a/libraries/base/Data/Either.hs +++ b/libraries/base/Data/Either.hs @@ -192,7 +192,7 @@ either _ g (Right y) = g y -- lefts :: [Either a b] -> [a] lefts x = [a | Left a <- x] -{-# INLINEABLE lefts #-} -- otherwise doesnt get an unfolding, see #13689 +{-# INLINEABLE lefts #-} -- otherwise doesn't get an unfolding, see #13689 -- | Extracts from a list of 'Either' all the 'Right' elements. -- All the 'Right' elements are extracted in order. @@ -207,7 +207,7 @@ lefts x = [a | Left a <- x] -- rights :: [Either a b] -> [b] rights x = [a | Right a <- x] -{-# INLINEABLE rights #-} -- otherwise doesnt get an unfolding, see #13689 +{-# INLINEABLE rights #-} -- otherwise doesn't get an unfolding, see #13689 -- | Partitions a list of 'Either' into two lists. -- All the 'Left' elements are extracted, in order, to the first diff --git a/libraries/base/Data/Foldable.hs b/libraries/base/Data/Foldable.hs index a7d57f7e62..9a031212f0 100644 --- a/libraries/base/Data/Foldable.hs +++ b/libraries/base/Data/Foldable.hs @@ -706,7 +706,7 @@ GHC used to proceed like this: mapM_ <big> (build g) - = { Defintion of mapM_ } + = { Definition of mapM_ } foldr ((>>) . <big>) (return ()) (build g) = { foldr/build rule } |