A software engineer website

Abaks: Use Cases

Gautier DI FOLCO June 18, 2023 [dev] #haskell #design #project #abaks

After introducing Commands as our Entites/Core Domain, we then have to introduce next layer: Use Cases.

For reference, it is the place where application-specific wiring.

They aim to be really simple, most of them will just wrap Event sourcing mechanics:

addEntry ::
  Members '[EventSourceEffect Entities.AbaksEvent] r =>
  Entities.PeriodId ->
  Entities.Entry ->
  Sem r (Either Text ())
addEntry periodId entry =
  runCommand (Entities.addEntry entry) periodId.getPeriodId $
    return . bimap (.getExplainedError) (const ())

While some of them will inject some value (or connect various sources):

createPeriod ::
  Members '[EventSourceEffect Entities.AbaksEvent, Final IO] r =>
  Text ->
  Day ->
  Day ->
  Entities.Amount ->
  Sem r (Either Text Entities.PeriodId)
createPeriod name from to balance = do
  periodId <- Entities.PeriodId . AggregateId . UUID.toText <$> embedFinal UUID.nextRandom
  runCommand (Entities.startPeriod periodId name from to balance) periodId.getPeriodId $
    return . bimap (.getExplainedError) (const periodId)

In the meantime, we have created a supporting function:

runCommand ::
  Members '[EventSourceEffect eventType] r =>
  CommandHandler eventType e ->
  AggregateId ->
  (Either e (Events eventType) -> Sem r a) ->
  Sem r a
runCommand handler aggregateId f =
  withEvents aggregateId $ \initialEvents ->
    let result = applyCommand handler initialEvents
     in (,) (either mempty id result) <$> f result

And a dedicated effect:

data EventSourceEffect (eventType :: Type) (m :: Type -> Type) (a :: Type) where
  WithEvents :: AggregateId -> (Events eventType -> m (Events eventType, a)) -> EventSourceEffect eventType m a

We also provide two implementations:

All based on a simple type: Map.Map AggregateId (Events eventType)