endless.core.interpret.EntityRunFunctions.scala Maven / Gradle / Ivy
package endless.core.interpret
import cats.data.{Chain, NonEmptyChain}
import cats.syntax.applicative.*
import cats.syntax.either.*
import cats.{Applicative, Monad}
import endless.core.data.{EventsFolder, Folded}
trait EntityRunFunctions {
def pure[F[_]: Applicative, S, E, A](a: A)(events: Chain[E]): F[Folded[E, A]] =
(events, a).asRight.pure
def read[F[_]: Monad, S, E](
folder: EventsFolder[S, E],
events: Chain[E]
): F[Folded[E, Option[S]]] = folder.applyOnFoldable(events).map((events, _)).pure
def write[F[_]: Applicative, S, E](
newEvents: NonEmptyChain[E]
)(existingEvents: Chain[E]): F[Folded[E, Unit]] =
(existingEvents ++ newEvents.toChain, ()).asRight.pure
}