[commit: ghc] master: Fix typos in Bag.hs [ci skip] (e1146ed)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e1146ed5d822e79b121b057c49ac13b61bcca93a/ghc

>---------------------------------------------------------------

commit e1146ed5d822e79b121b057c49ac13b61bcca93a
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Sat Jul 8 14:22:17 2017 +0300

    Fix typos in Bag.hs [ci skip]


>---------------------------------------------------------------

e1146ed5d822e79b121b057c49ac13b61bcca93a
 compiler/utils/Bag.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/utils/Bag.hs b/compiler/utils/Bag.hs
index 5771162..fffbb6e 100644
--- a/compiler/utils/Bag.hs
+++ b/compiler/utils/Bag.hs
@@ -286,7 +286,7 @@ mapAndUnzipBagM f (ListBag xs)    = do ts <- mapM f xs
                                        let (rs,ss) = unzip ts
                                        return (ListBag rs, ListBag ss)
 
-mapAccumBagL ::(acc -> x -> (acc, y)) -- ^ combining funcction
+mapAccumBagL ::(acc -> x -> (acc, y)) -- ^ combining function
             -> acc                    -- ^ initial state
             -> Bag x                  -- ^ inputs
             -> (acc, Bag y)           -- ^ final state, outputs
@@ -299,7 +299,7 @@ mapAccumBagL f s (ListBag xs)    = let (s', xs') = mapAccumL f s xs
                                    in (s', ListBag xs')
 
 mapAccumBagLM :: Monad m
-            => (acc -> x -> m (acc, y)) -- ^ combining funcction
+            => (acc -> x -> m (acc, y)) -- ^ combining function
             -> acc                      -- ^ initial state
             -> Bag x                    -- ^ inputs
             -> m (acc, Bag y)           -- ^ final state, outputs