Match the response style on the competing-interests question

Refs #2173
PREreview · Jan 13, 2025 · 5ee553d · 5ee553d
1 parent d39befd
commit 5ee553d
Show file tree

Hide file tree

Showing 3 changed files with 364 additions and 456 deletions.
diff --git a/src/app-router.ts b/src/app-router.ts
@@ -1536,7 +1536,22 @@ const router: P.Parser<RM.ReaderMiddleware<RouterEnv, StatusOpen, ResponseEnded,
     ),
     pipe(
       writeReviewCompetingInterestsMatch.parser,
-      P.map(({ id }) => writeReviewCompetingInterests(id)),
+      P.map(({ id }) =>
+        pipe(
+          RM.of({ id }),
+          RM.apS(
+            'body',
+            RM.gets(c => c.getBody()),
+          ),
+          RM.apS(
+            'method',
+            RM.gets(c => c.getMethod()),
+          ),
+          RM.apS('user', maybeGetUser),
+          RM.bindW('response', RM.fromReaderTaskK(writeReviewCompetingInterests)),
+          RM.ichainW(handleResponse),
+        ),
+      ),
     ),
     pipe(
       writeReviewConductMatch.parser,