Move the hardcoding into a third-party query #3342

src/read-side/html-pages/search-page/construct-view-model/construct-view-model.ts

@@ -1,16 +1,12 @@
 import * as RA from 'fp-ts/ReadonlyArray';
 import * as TE from 'fp-ts/TaskEither';
 import { pipe } from 'fp-ts/function';
+import { fetchSearchCategories } from '../../../../third-parties/fetch-search-categories';
 import * as DE from '../../../../types/data-error';
 import { ViewModel } from '../view-model';
 
-const titles = [
-  'Infectious Diseases (except HIV/AIDS)',
-  'Epidemiology',
-];
-
 export const constructViewModel = (): TE.TaskEither<DE.DataError, ViewModel> => pipe(
-  TE.right(titles),
+  fetchSearchCategories(),
   TE.map(RA.map((title) => ({
     title,
     href: `https://labs.sciety.org/categories/articles?category=${title}`,

src/third-parties/fetch-search-categories/fetch-search-categories.ts

@@ -0,0 +1,11 @@
+import * as TE from 'fp-ts/TaskEither';
+import * as DE from '../../types/data-error';
+
+type Titles = ReadonlyArray<string>;
+
+const titles = [
+  'Infectious Diseases (except HIV/AIDS)',
+  'Epidemiology',
+];
+
+export const fetchSearchCategories = (): TE.TaskEither<DE.DataError, Titles> => TE.right(titles);

src/third-parties/fetch-search-categories/index.ts

@@ -0,0 +1 @@
+export { fetchSearchCategories } from './fetch-search-categories';