File tree Expand file tree Collapse file tree 2 files changed +6
-7
lines changed Expand file tree Collapse file tree 2 files changed +6
-7
lines changed Original file line number Diff line number Diff line change @@ -1117,12 +1117,11 @@ unzip xs =
1117
1117
-- | ```purescript
1118
1118
-- | foldM (\x y -> Just (x + y)) 0 [1, 4] = Just 5
1119
1119
-- | ```
1120
- -- |
1121
- foldM :: forall m a b . Monad m => (a -> b -> m a ) -> a -> Array b -> m a
1122
- foldM f a = unconsImpl (\_ -> pure a) (\b bs -> f a b >>= \a' -> foldM f a' bs)
1120
+ foldM :: forall m a b . Monad m => (b -> a -> m b ) -> b -> Array a -> m b
1121
+ foldM f b = unconsImpl (\_ -> pure b) (\a as -> f b a >>= \b' -> foldM f b' as)
1123
1122
1124
- foldRecM :: forall m a b . MonadRec m => (a -> b -> m a ) -> a -> Array b -> m a
1125
- foldRecM f a array = tailRecM2 go a 0
1123
+ foldRecM :: forall m a b . MonadRec m => (b -> a -> m b ) -> b -> Array a -> m b
1124
+ foldRecM f b array = tailRecM2 go b 0
1126
1125
where
1127
1126
go res i
1128
1127
| i >= length array = pure (Done res)
Original file line number Diff line number Diff line change @@ -437,10 +437,10 @@ zip xs ys = unsafeFromArray $ toArray xs `A.zip` toArray ys
437
437
unzip :: forall a b . NonEmptyArray (Tuple a b ) -> Tuple (NonEmptyArray a ) (NonEmptyArray b )
438
438
unzip = bimap unsafeFromArray unsafeFromArray <<< A .unzip <<< toArray
439
439
440
- foldM :: forall m a b . Monad m => (a -> b -> m a ) -> a -> NonEmptyArray b -> m a
440
+ foldM :: forall m a b . Monad m => (b -> a -> m b ) -> b -> NonEmptyArray a -> m b
441
441
foldM f acc = adaptAny $ A .foldM f acc
442
442
443
- foldRecM :: forall m a b . MonadRec m => (a -> b -> m a ) -> a -> NonEmptyArray b -> m a
443
+ foldRecM :: forall m a b . MonadRec m => (b -> a -> m b ) -> b -> NonEmptyArray a -> m b
444
444
foldRecM f acc = adaptAny $ A .foldRecM f acc
445
445
446
446
unsafeIndex :: forall a . Partial => NonEmptyArray a -> Int -> a
You can’t perform that action at this time.
0 commit comments