Add command to add an email to a member

Author: Lan2u

src/commands/members/add-email.ts

@@ -0,0 +1,34 @@
+import {constructEvent, EmailAddressCodec} from '../../types';
+import * as t from 'io-ts';
+import * as tt from 'io-ts-types';
+import * as O from 'fp-ts/Option';
+import {Command} from '../command';
+import { isSelfOrPrivileged } from '../is-self-or-privileged';
+
+const codec = t.strict({
+  memberNumber: tt.NumberFromString,
+  email: EmailAddressCodec,
+});
+
+type AddEmail = t.TypeOf<typeof codec>;
+
+const process: Command<AddEmail>['process'] = input =>
+  O.some(
+    constructEvent('MemberEmailAdded')({
+      memberNumber: input.command.memberNumber,
+      newEmail: input.command.email,
+      actor: input.command.actor,
+    })
+  );
+
+const resource: Command<AddEmail>['resource'] = input => ({
+  type: 'MemberDetails',
+  id: input.memberNumber.toString(),
+});
+
+export const addEmail: Command<AddEmail> = {
+  process,
+  resource,
+  decode: codec.decode,
+  isAuthorized: isSelfOrPrivileged,
+};

src/types/domain-event.ts

@@ -168,6 +168,11 @@ const MemberEmailChanged = defineEvent('MemberEmailChanged', {
   newEmail: EmailAddressCodec,
 });
 
+const MemberEmailAdded = defineEvent('MemberEmailAdded', {
+  memberNumber: t.number,
+  newEmail: EmailAddressCodec,
+});
+
 const RecurlySubscriptionUpdated = defineEvent('RecurlySubscriptionUpdated', {
   email: EmailAddressCodec,
   hasActiveSubscription: t.boolean,
@@ -219,6 +224,7 @@ export const events = [
   MemberTrainedOnEquipmentBy,
   RevokeTrainedOnEquipment,
   MemberEmailChanged,
+  MemberEmailAdded,
   EquipmentTrainingQuizMemberNumberUpdated,
   EquipmentTrainingQuizEmailUpdated,
   TroubleTicketResponseSubmitted,
@@ -250,6 +256,7 @@ export const DomainEvent = t.union([
   MemberTrainedOnEquipmentBy.codec,
   RevokeTrainedOnEquipment.codec,
   MemberEmailChanged.codec,
+  MemberEmailAdded.codec,
   EquipmentTrainingQuizMemberNumberUpdated.codec,
   EquipmentTrainingQuizEmailUpdated.codec,
   TroubleTicketResponseSubmitted.codec,