summaryrefslogtreecommitdiff
path: root/hooks/server/health.ts
blob: 2f67aa49d52e9b42578c1141368b55abe48c4e97 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
import {
  getRequiredEnv,
  getStdout,
  type HealthChecker,
  type HealthCheckInput,
  HealthCheckOutput,
  type IEither,
  type ITraceable,
  type ServerTrace,
  TraceUtil,
} from "@emprespresso/pengueno";

export const healthCheck: HealthChecker = (
  input: ITraceable<HealthCheckInput, ServerTrace>,
): Promise<IEither<Error, HealthCheckOutput>> =>
  input.bimap(TraceUtil.withFunctionTrace(healthCheck))
    .move(getRequiredEnv("LAMINAR_HOST"))
    // ensure LAMINAR_HOST is propagated to getStdout for other procedures
    .map((e) => e.get().moveRight(["laminarc", "show-jobs"]))
    .map((i) =>
      i.get().mapRight(i.move.apply)
        .flatMapAsync(getStdout.apply)
        .then((gotJobs) => gotJobs.moveRight(HealthCheckOutput.YAASSSLAYQUEEN))
    )
    .get();