diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2017-07-08 14:22:17 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2017-07-08 14:22:17 +0300 |
| commit | e1146ed5d822e79b121b057c49ac13b61bcca93a (patch) | |
| tree | d95f93129062d139a9265a0aed32aa6c8c225844 | |
| parent | c2303dff95aa174021a1950656fdf9a1cf983959 (diff) | |
| download | haskell-e1146ed5d822e79b121b057c49ac13b61bcca93a.tar.gz | |
Fix typos in Bag.hs [ci skip]
| -rw-r--r-- | compiler/utils/Bag.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Bag.hs b/compiler/utils/Bag.hs index 57711629c9..fffbb6eb12 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 |