diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-03-10 17:58:32 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-03-10 18:05:01 +0100 |
| commit | abf5736bcad2d740b5854e2e4a9b3547b9b06639 (patch) | |
| tree | 6ce982e8fb785f48fbefcb766890849272d9b415 /compiler/utils | |
| parent | 3300eeacbbf7a3d1f961f809be5d236c48827b28 (diff) | |
| download | haskell-abf5736bcad2d740b5854e2e4a9b3547b9b06639.tar.gz | |
Typos in comments [skip ci]
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/MonadUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/MonadUtils.hs b/compiler/utils/MonadUtils.hs index 72669b9362..af8ab4a897 100644 --- a/compiler/utils/MonadUtils.hs +++ b/compiler/utils/MonadUtils.hs @@ -88,7 +88,7 @@ zipWith4M f xs ys ws zs = sequenceA (zipWith4 f xs ys ws zs) zipWithAndUnzipM :: Monad m => (a -> b -> m (c, d)) -> [a] -> [b] -> m ([c], [d]) {-# INLINABLE zipWithAndUnzipM #-} --- See Note [flatten_many performance] in TcFlatten for why this +-- See Note [flatten_args performance] in TcFlatten for why this -- pragma is essential. zipWithAndUnzipM f (x:xs) (y:ys) = do { (c, d) <- f x y |