wip: list-loans print the full text of the website

package.json

@@ -43,6 +43,7 @@
     "check:typescript": "tsc"
   },
   "dependencies": {
-    "fp-ts": "^2.16.1"
+    "fp-ts": "^2.16.1",
+    "undici": "^5.25.3"
   }
 }

src/loans.ts

@@ -1,4 +1,6 @@
+import { pipe } from "fp-ts/function";
 import * as TE from "fp-ts/TaskEither";
+import { Dispatcher, request } from "undici";
 
 // type Loans = {
 //   username: string;
@@ -8,6 +10,15 @@ import * as TE from "fp-ts/TaskEither";
 // }
 
 export const listLoans = (): TE.TaskEither<Error, string> => {
-  return TE.of("Getting loans");
-  // return TE.left(new Error("Error getting loans"));
+  const post = (url: string) =>
+    TE.tryCatch(
+      () => request(url),
+      (reason) => new Error(`Unable to fetch loans: ${String(reason)}`),
+    );
+  const parseJson = TE.tryCatchK<Error, [Dispatcher.ResponseData], string>(
+    (resp) => resp.body.text(),
+    (reason) => new Error(`Unable to : ${String(reason)}`),
+  );
+
+  return pipe(post("http://www.mediathequederoubaix.fr"), TE.chain(parseJson));
 };