handleCustomerAccountsEvent accounts (StreamEvent uuid _ event) =
  accounts
  & customerAccountsAccountsById %~ Map.adjust modifyAccount uuid
  where
    modifyAccount account =
      maybe account (projectionEventHandler accountProjection account) (deserialize accountEventSerializer event)
handleCustomerAccountsEvent accounts (StreamEvent uuid _ event) =
  accounts
  & customerAccountsAccountsById %~ Map.adjust modifyAccount uuid
  where
    modifyAccount account =
      maybe account (projectionEventHandler accountProjection account) (deserialize accountEventSerializer event)
handleCustomerAccountsEvent accounts (StreamEvent uuid _ event) =
  accounts
  & customerAccountsAccountsById %~ Map.adjust modifyAccount uuid
  where
    modifyAccount account =
      maybe account (projectionEventHandler accountProjection account) (deserialize accountEventSerializer event)