Function addressFormattedWith

packages/platform/src/internal/httpServer.ts:153–159

(
  effect: (address: string) => Effect.Effect<A, E, R>
)

/** @internal */
export const addressFormattedWith = <A, E, R>(
  effect: (address: string) => Effect.Effect<A, E, R>
): Effect.Effect<A, E, Server.HttpServer | R> =>
  Effect.flatMap(
    serverTag,
    (server) => effect(formatAddress(server.address))
  )

/** @internal */
export const logAddress: Effect.Effect<void, never, Server.HttpServer> = addressFormattedWith((_) =>