AK
Size: a a a
AK
ЗП
ЗП
ЗП
AK
ЗП
AK
AK
ЗП
AK
newtype UpdateM event model = UpdateM { model :: model, affs :: Array (Aff event) }
instance functorUpdateM :: Functor (UpdateM event) where
map f (UpdateM u) = UpdateM u { model = f u.model }Array (Aff event) вижу, я попробовал у себя поменять на Monoid event => Aff event и счастлив — если event это тип-сумма, то можно его моноидом сделать, добавив всякие NoOp и Pair eventA eventB .AK
fold работает — красотаR:
R:
AK
AK
R:
R:
ЗП
Array ~> List?