@effect-app/infra 0.7.0

package/_cjs/vendor/Cache/CacheStats.cjs

@@ -0,0 +1,17 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+var _definition = require("./CacheStats/definition.cjs");
+Object.keys(_definition).forEach(function (key) {
+  if (key === "default" || key === "__esModule") return;
+  if (key in exports && exports[key] === _definition[key]) return;
+  Object.defineProperty(exports, key, {
+    enumerable: true,
+    get: function () {
+      return _definition[key];
+    }
+  });
+});
+//# sourceMappingURL=CacheStats.cjs.map

package/_cjs/vendor/Cache/CacheStats.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"CacheStats.cjs","mappings":";;;;;AACA;AAAA;EAAA;EAAA;EAAA;IAAA;IAAA;MAAA;IAAA;EAAA;AAAA","names":[],"sourceRoot":"","sources":["../../../_src/vendor/Cache/CacheStats.ts"],"sourcesContent":[null]}

package/_cjs/vendor/Cache/EntryStats/definition.cjs

@@ -0,0 +1,11 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+exports.EntryStats = void 0;
+const EntryStats = loadedMillis => ({
+  loadedMillis
+});
+exports.EntryStats = EntryStats;
+//# sourceMappingURL=definition.cjs.map

package/_cjs/vendor/Cache/EntryStats/definition.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"definition.cjs","mappings":";;;;;;AAgBO,MAAMA,UAAU,GAAmBC,YAAY,KAAM;EAC1DA;CACD,CAAC;AAAA","names":["EntryStats","loadedMillis"],"sourceRoot":"","sources":["../../../../_src/vendor/Cache/EntryStats/definition.ts"],"sourcesContent":[null]}

package/_cjs/vendor/Cache/EntryStats.cjs

@@ -0,0 +1,17 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+var _definition = require("./EntryStats/definition.cjs");
+Object.keys(_definition).forEach(function (key) {
+  if (key === "default" || key === "__esModule") return;
+  if (key in exports && exports[key] === _definition[key]) return;
+  Object.defineProperty(exports, key, {
+    enumerable: true,
+    get: function () {
+      return _definition[key];
+    }
+  });
+});
+//# sourceMappingURL=EntryStats.cjs.map

package/_cjs/vendor/Cache/EntryStats.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"EntryStats.cjs","mappings":";;;;;AACA;AAAA;EAAA;EAAA;EAAA;IAAA;IAAA;MAAA;IAAA;EAAA;AAAA","names":[],"sourceRoot":"","sources":["../../../_src/vendor/Cache/EntryStats.ts"],"sourcesContent":[null]}

package/_cjs/vendor/Cache/Lookup/definition.cjs

@@ -0,0 +1,6 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+//# sourceMappingURL=definition.cjs.map

package/_cjs/vendor/Cache/Lookup/definition.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"definition.cjs","mappings":"","names":[],"sourceRoot":"","sources":[],"sourcesContent":[]}

package/_cjs/vendor/Cache/Lookup.cjs

@@ -0,0 +1,17 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+var _definition = require("./Lookup/definition.cjs");
+Object.keys(_definition).forEach(function (key) {
+  if (key === "default" || key === "__esModule") return;
+  if (key in exports && exports[key] === _definition[key]) return;
+  Object.defineProperty(exports, key, {
+    enumerable: true,
+    get: function () {
+      return _definition[key];
+    }
+  });
+});
+//# sourceMappingURL=Lookup.cjs.map

package/_cjs/vendor/Cache/Lookup.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"Lookup.cjs","mappings":";;;;;AACA;AAAA;EAAA;EAAA;EAAA;IAAA;IAAA;MAAA;IAAA;EAAA;AAAA","names":[],"sourceRoot":"","sources":["../../../_src/vendor/Cache/Lookup.ts"],"sourcesContent":[null]}

package/_cjs/vendor/Cache/index.cjs

@@ -0,0 +1,17 @@
+"use strict";
+
+Object.defineProperty(exports, "__esModule", {
+  value: true
+});
+exports.lookup = exports.entryStats = exports.cacheStats = exports.cache = void 0;
+var _cache = _interopRequireWildcard(require("./Cache.cjs"));
+exports.cache = _cache;
+var _cacheStats = _interopRequireWildcard(require("./CacheStats.cjs"));
+exports.cacheStats = _cacheStats;
+var _entryStats = _interopRequireWildcard(require("./EntryStats.cjs"));
+exports.entryStats = _entryStats;
+var _lookup = _interopRequireWildcard(require("./Lookup.cjs"));
+exports.lookup = _lookup;
+function _getRequireWildcardCache(nodeInterop) { if (typeof WeakMap !== "function") return null; var cacheBabelInterop = new WeakMap(); var cacheNodeInterop = new WeakMap(); return (_getRequireWildcardCache = function (nodeInterop) { return nodeInterop ? cacheNodeInterop : cacheBabelInterop; })(nodeInterop); }
+function _interopRequireWildcard(obj, nodeInterop) { if (!nodeInterop && obj && obj.__esModule) { return obj; } if (obj === null || typeof obj !== "object" && typeof obj !== "function") { return { default: obj }; } var cache = _getRequireWildcardCache(nodeInterop); if (cache && cache.has(obj)) { return cache.get(obj); } var newObj = {}; var hasPropertyDescriptor = Object.defineProperty && Object.getOwnPropertyDescriptor; for (var key in obj) { if (key !== "default" && Object.prototype.hasOwnProperty.call(obj, key)) { var desc = hasPropertyDescriptor ? Object.getOwnPropertyDescriptor(obj, key) : null; if (desc && (desc.get || desc.set)) { Object.defineProperty(newObj, key, desc); } else { newObj[key] = obj[key]; } } } newObj.default = obj; if (cache) { cache.set(obj, newObj); } return newObj; }
+//# sourceMappingURL=index.cjs.map

package/_cjs/vendor/Cache/index.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.cjs","mappings":"","names":[],"sourceRoot":"","sources":[],"sourcesContent":[]}

package/_src/_global.ext.ts

@@ -0,0 +1,34 @@
+/**
+ * @tsplus global
+ */
+import type {} from "@effect-app/infra/services/Emailer/fake"
+/**
+ * @tsplus global
+ */
+import type {} from "@effect-app/infra/services/Emailer/Sendgrid"
+/**
+ * @tsplus global
+ */
+import type {} from "@effect-app/infra/test.arbs"
+/**
+ * @tsplus global
+ */
+import type {} from "@effect-app/infra/ext"
+/**
+ * @tsplus global
+ */
+import type {} from "@effect-app/infra/lib/instrument"
+/**
+ * @tsplus global
+ */
+import type {} from "@effect-app/infra/lib/rateLimit"
+
+/**
+ * @tsplus global
+ */
+import type {} from "@effect-app/infra/lib/api/setupRequest"
+
+/**
+ * @tsplus global
+ */
+import {} from "@effect-app/infra/lib/api/reportError"

package/_src/_global.schema.ts

@@ -0,0 +1,10 @@
+/* eslint-disable import/no-duplicates */
+/* eslint-disable unused-imports/no-unused-imports */
+// Required for tsplus with project references in vscode..
+
+/**
+ * @tsplus global
+ */
+import { allowAnonymous, Delete, Get, Patch, Post, Put } from "@effect-app/prelude/schema"
+
+import "@effect-app/prelude/_global.schema"

package/_src/_global.ts

@@ -0,0 +1,14 @@
+/* eslint-disable import/no-duplicates */
+/* eslint-disable unused-imports/no-unused-imports */
+
+/**
+ * @tsplus global
+ */
+import "@effect-app/prelude/_global"
+
+/**
+ * @tsplus global
+ */
+import "@effect-app/infra-adapters/_global"
+
+import "./_global.ext.js"

package/_src/errors.ts

@@ -0,0 +1,50 @@
+import { NotLoggedInError } from "@effect-app/infra-adapters/errors"
+
+export class NotFoundError<T extends string = string> {
+  public readonly _tag = "NotFoundError"
+  public readonly message: string
+  constructor(type: T, id: string) {
+    this.message = `Didn't find ${type}#${id}`
+  }
+}
+
+export { NotLoggedInError, UnauthorizedError, ValidationError } from "@effect-app/infra-adapters/errors"
+
+/**
+ * The user carries a valid Userprofile, but there is a problem with the login none the less.
+ */
+export class LoginError extends NotLoggedInError {
+  constructor(readonly message: string) {
+    super()
+  }
+}
+
+export class InvalidStateError {
+  public readonly _tag = "InvalidStateError"
+  constructor(public readonly message: string) {}
+}
+
+export class CauseException<E> extends Error {
+  readonly pretty: string
+  constructor(readonly exitCause: Cause<E>, readonly _tag: string) {
+    super(`An unexpected ${_tag} Exception occurred, see \`pretty\` for details.`)
+    this.pretty = exitCause.pretty()
+  }
+
+  toJSON() {
+    return {
+      _tag: this._tag,
+      message: this.message,
+      pretty: this.pretty
+      //      cause: (this.cause as {}).$$.inspect(undefined, 10)
+    }
+  }
+}
+
+export class OptimisticConcurrencyException {
+  readonly _tag = "OptimisticConcurrencyException"
+  readonly message: string
+  constructor(readonly type: string, readonly id: string, readonly current?: string, readonly found?: string) {
+    this.message = `Existing ${type} ${id} record changed`
+  }
+}

package/_src/ext.ts

@@ -0,0 +1 @@
+import "./lib/ext/Array.js"

package/_src/lib/RequestContext.ts

@@ -0,0 +1,132 @@
+export const RequestId = StringId
+export type RequestId = ParsedShapeOfCustom<typeof RequestId>
+
+export class RequestContextParent extends MNModel<
+  RequestContextParent,
+  RequestContextParent.ConstructorInput,
+  RequestContextParent.Encoded,
+  RequestContextParent.Props
+>()({
+  _tag: prop(literal("RequestContext")),
+  id: prop(RequestId),
+  name: prop(ReasonableString),
+  locale: prop(literal("en", "de")),
+  createdAt: defaultProp(date)
+}) {}
+/** @ignore @internal @deprecated */
+export type RequestContextParentConstructor = typeof RequestContextParent
+
+export function makeRequestId() {
+  return RequestId.make()
+}
+
+/**
+ * @tsplus type RequestContext
+ * @tsplus companion RequestContext.Ops
+ */
+export class RequestContext extends MNModel<
+  RequestContext,
+  RequestContext.ConstructorInput,
+  RequestContext.Encoded,
+  RequestContext.Props
+>()({
+  ...RequestContextParent.omit("id"),
+  id: defaultProp(RequestId, makeRequestId),
+  rootId: prop(RequestId),
+  parent: optProp(RequestContextParent)
+}) {
+  static inherit(
+    this: void,
+    parent: RequestContext,
+    newSelf: RequestContextParent.ConstructorInput
+  ) {
+    return new RequestContext({
+      ...newSelf,
+      rootId: parent.rootId,
+      parent
+    })
+  }
+
+  static toMonitoring(this: void, self: RequestContext) {
+    return {
+      operationName: self.name,
+      locale: self.locale,
+      ...(self.parent
+        ? { parentOperationName: self.parent.name, parentLocale: self.parent.locale }
+        : {})
+    }
+  }
+}
+
+/** @ignore @internal @deprecated */
+export type RequestContextConstructor = typeof RequestContext
+
+/**
+ * @tsplus static RequestContext.Ops Tag
+ */
+export const tag = Tag<RequestContext>()
+
+/* eslint-disable */
+export interface RequestContextParent {
+  readonly createdAt: Date
+  readonly id: RequestId
+  readonly locale: "de" | "en"
+  readonly name: ReasonableString
+}
+export namespace RequestContextParent {
+  /**
+   * @tsplus type RequestContextParent.Encoded
+   */
+  export interface Encoded {
+    readonly createdAt: string
+    readonly id: string
+    readonly locale: "de" | "en"
+    readonly name: string
+  }
+  export const Encoded: EncodedOps = { $: {} }
+  /**
+   * @tsplus type RequestContextParent.Encoded.Aspects
+   */
+  export interface EncodedAspects {}
+  /**
+   * @tsplus type RequestContextParent.Encoded.Ops
+   */
+  export interface EncodedOps { $: EncodedAspects }
+  export interface ConstructorInput
+    extends ConstructorInputFromApi<typeof RequestContextParent> {}
+  export interface Props extends GetProvidedProps<typeof RequestContextParent> {}
+}
+export interface RequestContext {
+  readonly createdAt: Date
+  readonly id: RequestId
+  readonly locale: "de" | "en"
+  readonly name: ReasonableString
+  readonly parent?: RequestContextParent | undefined
+  readonly rootId: RequestId
+}
+export namespace RequestContext {
+  /**
+   * @tsplus type RequestContext.Encoded
+   */
+  export interface Encoded {
+    readonly createdAt: string
+    readonly id: string
+    readonly locale: "de" | "en"
+    readonly name: string
+    readonly parent?: RequestContextParent.Encoded | undefined
+    readonly rootId: string
+  }
+  export const Encoded: EncodedOps = { $: {} }
+  /**
+   * @tsplus type RequestContext.Encoded.Aspects
+   */
+  export interface EncodedAspects {}
+  /**
+   * @tsplus type RequestContext.Encoded.Ops
+   */
+  export interface EncodedOps { $: EncodedAspects }
+  export interface ConstructorInput
+    extends ConstructorInputFromApi<typeof RequestContext> {}
+  export interface Props extends GetProvidedProps<typeof RequestContext> {}
+}
+/* eslint-enable */

package/_src/lib/api/authorization.jwt.ts

@@ -0,0 +1,52 @@
+// import { configM, UserSVC } from "@/services.js"
+import * as Ex from "@effect-app/infra-adapters/express/index"
+import { expressjwt } from "express-jwt"
+import jwtAuthz from "express-jwt-authz"
+import jwksRsa from "jwks-rsa"
+
+// Authorization middleware. When used, the
+// Access Token must exist and be verified against
+// the Auth0 JSON Web Key Set
+export const checkJwt = (audience: string, issuer: string) =>
+  expressjwt({
+    // Dynamically provide a signing key
+    // based on the kid in the header and
+    // the signing keys provided by the JWKS endpoint.
+    secret: jwksRsa.expressJwtSecret({
+      cache: true,
+      rateLimit: true,
+      jwksRequestsPerMinute: 5,
+      jwksUri: `${issuer}/.well-known/jwks.json`
+    }) as jwksRsa.GetVerificationKey,
+
+    // Validate the audience and the issuer.
+    audience,
+    issuer: [issuer + "/"],
+    algorithms: ["RS256"]
+  })
+
+const demandScopes = jwtAuthz([])
+
+// export const auth = configM(
+//   (cfg) =>
+//     cfg.AUTH_DISABLED
+//       ? Effect.unit
+//       : Ex.use(Ex.classic(checkJwt)) > Ex.use(Ex.classic(demandScopes)) // TODO
+// )
+export const scopes = Ex.classic(demandScopes)
+
+/*
+  configM(cfg => {
+  const handleJwt = Ex.classic(
+    checkJwt(cfg.AUTH0_AUDIENCE, cfg.AUTH0_ISSUER_BASE_URL)
+  )
+  return (
+    cfg.AUTH_DISABLED
+      ? Effect(null)
+      : // eslint-disable-next-line @typescript-eslint/no-empty-function
+        handleJwt(req, res, () => scopes(req, res, () => {}))
+  ).zipRight(
+    cfg.AUTH_DISABLED
+   // ..
+   ).toLayer(UserProfile)
+*/

package/_src/lib/api/defaultErrorHandler.ts

@@ -0,0 +1,92 @@
+import type express from "express"
+import type {
+  InvalidStateError,
+  NotFoundError,
+  NotLoggedInError,
+  OptimisticConcurrencyException,
+  UnauthorizedError,
+  ValidationError
+} from "../../errors.js"
+import type { RequestContext } from "../RequestContext.js"
+import { logRequestError } from "./reportError.js"
+
+export function defaultBasicErrorHandler<R>(
+  _req: express.Request,
+  res: express.Response,
+  _requestContext: RequestContext,
+  r2: Effect<R, ValidationError, void>
+) {
+  return r2
+    .tapErrorCause(cause => cause.isFailure() ? logRequestError(cause) : Effect.unit)
+    .catchTag("ValidationError", err =>
+      Effect(() => {
+        res.status(400).send(err.errors)
+      }))
+    // final catch all; expecting never so that unhandled known errors will show up
+    .catchAll((err: never) =>
+      Effect.logError(
+        "Program error, compiler probably silenced, got an unsupported Error in Error Channel of Effect" + err
+      )
+        .map(() => err as unknown)
+        .flatMap(Effect.die)
+    )
+}
+
+const optimisticConcurrencySchedule = Schedule.once() &&
+  Schedule.recurWhile<SupportedErrors>(a => a._tag === "OptimisticConcurrencyException")
+
+export function defaultErrorHandler<R>(
+  req: express.Request,
+  res: express.Response,
+  _: RequestContext,
+  r2: Effect<R, SupportedErrors, void>
+) {
+  const r3 = (
+    req.method === "PATCH"
+      ? r2.retry(optimisticConcurrencySchedule)
+      : r2
+  )
+  return r3
+    .tapErrorCause(cause => cause.isFailure() ? logRequestError(cause) : Effect.unit)
+    .catchTag("ValidationError", err =>
+      Effect(() => {
+        res.status(400).send(err.errors)
+      }))
+    .catchTag("NotFoundError", err =>
+      Effect(() => {
+        res.status(404).send(err)
+      }))
+    .catchTag("NotLoggedInError", err =>
+      Effect(() => {
+        res.status(401).send(err)
+      }))
+    .catchTag("UnauthorizedError", err =>
+      Effect(() => {
+        res.status(403).send(err)
+      }))
+    .catchTag("InvalidStateError", err =>
+      Effect(() => {
+        res.status(422).send(err)
+      }))
+    .catchTag("OptimisticConcurrencyException", err =>
+      Effect(() => {
+        // 412 or 409.. https://stackoverflow.com/questions/19122088/which-http-status-code-to-use-to-reject-a-put-due-to-optimistic-locking-failure
+        res.status(412).send(err)
+      }))
+    // final catch all; expecting never so that unhandled known errors will show up
+    .catchAll((err: never) =>
+      Effect.logError(
+        "Program error, compiler probably silenced, got an unsupported Error in Error Channel of Effect" + err
+      )
+        .map(() => err as unknown)
+        .flatMap(Effect.die)
+    )
+}
+
+export type SupportedErrors =
+  | ValidationError
+  | NotFoundError
+  | NotLoggedInError
+  | UnauthorizedError
+  | InvalidStateError
+  | OptimisticConcurrencyException

package/_src/lib/api/reportError.ts

@@ -0,0 +1,50 @@
+import { CauseException } from "../../errors.js"
+import { logError, reportError } from "../../lib/errorReporter.js"
+import { RequestContext } from "../../lib/RequestContext.js"
+
+export class RequestException<E> extends CauseException<E> {
+  constructor(cause: Cause<E>) {
+    super(cause, "Request")
+  }
+}
+export const reportRequestError_ = reportError(cause => new RequestException(cause))
+
+export const reportRequestError = (cause: Cause<unknown>, context?: Record<string, unknown> | undefined) =>
+  RequestContext.Tag.accessWithEffect(requestContext => reportRequestError_(cause, { requestContext, ...context }))
+
+export const logRequestError_ = logError(cause => new RequestException(cause))
+
+export const logRequestError = (cause: Cause<unknown>, context?: Record<string, unknown> | undefined) =>
+  RequestContext.Tag.accessWithEffect(requestContext => logRequestError_(cause, { requestContext, ...context }))
+
+/**
+ * Forks the effect into a new fiber attached to the global scope. Because the
+ * new fiber is attached to the global scope, when the fiber executing the
+ * returned effect terminates, the forked fiber will continue running.
+ *
+ * Reports errors.
+ *
+ * @tsplus getter effect/io/Effect forkDaemonReportRequest
+ */
+export function forkDaemonReportRequest<R, E, A>(self: Effect<R, E, A>) {
+  return self.tapErrorCause(reportRequestError)
+    .fork.daemonChildren
+}
+
+/**
+ * Forks the effect into a new fiber attached to the global scope. Because the
+ * new fiber is attached to the global scope, when the fiber executing the
+ * returned effect terminates, the forked fiber will continue running.
+ *
+ * Reports errors.
+ *
+ * @tsplus getter effect/io/Effect forkDaemonReportRequestUnexpected
+ */
+export function forkDaemonReportRequestUnexpected<R, E, A>(self: Effect<R, E, A>) {
+  return self.tapErrorCause(cause =>
+    cause.isInterruptedOnly() || cause.isDie()
+      ? reportRequestError(cause)
+      : logRequestError(cause)
+  )
+    .fork.daemonChildren
+}