diff options
Diffstat (limited to 'compiler/utils/MonadUtils.hs')
| -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 af8ab4a897..50e53b98c8 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_args performance] in TcFlatten for why this +-- See Note [flatten_args performance] in GHC.Tc.Solver.Flatten for why this -- pragma is essential. zipWithAndUnzipM f (x:xs) (y:ys) = do { (c, d) <- f x y |