Hook up read side

Author: Lan2u

src/queries/trouble-tickets/construct-view-model.ts

@@ -0,0 +1,12 @@
+import * as TE from 'fp-ts/TaskEither';
+import {FailureWithStatus} from '../../types/failure-with-status';
+import {ViewModel} from './view-model';
+import {User} from '../../types';
+import {UUID} from 'io-ts-types';
+import {SharedReadModel} from '../../read-models/shared-state';
+
+export const constructViewModel =
+  (readModel: SharedReadModel) =>
+  (user: User): TE.TaskEither<FailureWithStatus, ViewModel> => {
+    
+  };

src/queries/trouble-tickets/index.ts

@@ -0,0 +1,14 @@
+import {pipe} from 'fp-ts/lib/function';
+import * as TE from 'fp-ts/TaskEither';
+import {constructViewModel} from './construct-view-model';
+import {render} from './render';
+import {Query} from '../query';
+import {safe, toLoggedInContent} from '../../types/html';
+
+export const troubleTickets: Query = deps => user =>
+  pipe(
+    user,
+    constructViewModel(deps.sharedReadModel),
+    TE.map(render),
+    TE.map(toLoggedInContent(safe('Trouble Tickets')))
+  );

src/queries/trouble-tickets/render.ts

@@ -0,0 +1,13 @@
+import {pipe} from 'fp-ts/lib/function';
+import {html} from '../../types/html';
+import {ViewModel} from './view-model';
+
+export const render = (viewModel: ViewModel) =>
+  pipe(
+    viewModel,
+    (_viewModel: ViewModel) => html`
+      <div class="stack">
+        <h1>Trouble tickets</h1>
+      </div>
+    `
+  );

src/queries/trouble-tickets/view-model.ts

@@ -0,0 +1,14 @@
+import {DateTime} from 'luxon';
+import * as O from 'fp-ts/Option';
+
+export type ViewModel = {
+  isSuperUser: boolean;
+  troubleTicketData: ReadonlyArray<{
+    responseSubmitted: DateTime;
+    emailAddress: O.Option<string>;
+    whichEquipment: O.Option<string>;
+    submitterName: O.Option<string>;
+    submitterMembershipNumber: O.Option<number>;
+    submittedResponse: Record<string, string>;
+  }>;
+};