Start to redefine the contract between viewmodel construction and ren…

…dering #3334

src/read-side/non-html-views/api/groups/construct-view-model.ts

@@ -1,10 +1,10 @@
-import { Json } from 'fp-ts/Json';
 import * as O from 'fp-ts/Option';
 import * as RA from 'fp-ts/ReadonlyArray';
 import { pipe } from 'fp-ts/function';
+import { ViewModel } from './view-model';
 import { Queries } from '../../../../read-models';
 
-export const constructViewModel = (queries: Queries): Json => ({
+export const constructViewModel = (queries: Queries): ViewModel => ({
   groups: pipe(
     queries.getAllGroups(),
     RA.map((group) => ({

src/read-side/non-html-views/api/groups/groups.ts

@@ -1,12 +1,9 @@
-import { Json } from 'fp-ts/Json';
 import * as TE from 'fp-ts/TaskEither';
 import { pipe } from 'fp-ts/function';
 import { constructViewModel } from './construct-view-model';
+import { renderAsJson } from './render-as-json';
 import { Queries } from '../../../../read-models';
 import { NonHtmlView } from '../../non-html-view';
-import { NonHtmlViewRepresentation, toNonHtmlViewRepresentation } from '../../non-html-view-representation';
-
-const renderAsJson = (viewModel: Json): NonHtmlViewRepresentation => toNonHtmlViewRepresentation(viewModel, 'application/json');
 
 export const groups = (queries: Queries): NonHtmlView => () => pipe(
   constructViewModel(queries),

src/read-side/non-html-views/api/groups/render-as-json.ts

@@ -0,0 +1,4 @@
+import { ViewModel } from './view-model';
+import { NonHtmlViewRepresentation, toNonHtmlViewRepresentation } from '../../non-html-view-representation';
+
+export const renderAsJson = (viewModel: ViewModel): NonHtmlViewRepresentation => toNonHtmlViewRepresentation(viewModel, 'application/json');

src/read-side/non-html-views/api/groups/view-model.ts

@@ -0,0 +1,5 @@
+import { Json } from 'fp-ts/Json';
+
+export type ViewModel = {
+  groups: Json,
+};