diff options
Diffstat (limited to 'compiler/utils')
| -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 |