| 1 | import * as ivsrealtime from "@distilled.cloud/aws/ivs-realtime"; |
| 2 | import * as Effect from "effect/Effect"; |
| 3 | import * as Schedule from "effect/Schedule"; |
| 4 | import { diffTags } from "../../Tags.ts"; |
| 5 | |
| 6 | /** |
| 7 | * IVS Real-Time wire tags allow `undefined` values in the record type — |
| 8 | * flatten to a plain string record, dropping malformed entries. |
| 9 | */ |
| 10 | export const toTagRecord = ( |
| 11 | tags: { [key: string]: string | undefined } | undefined, |
| 12 | ): Record<string, string> => |
| 13 | Object.fromEntries( |
| 14 | Object.entries(tags ?? {}).filter( |
| 15 | (entry): entry is [string, string] => typeof entry[1] === "string", |
| 16 | ), |
| 17 | ); |
| 18 | |
| 19 | /** |
| 20 | * Read the observed tags of an IVS Real-Time resource. Best-effort — a |
| 21 | * failure (e.g. a race with deletion) reports no tags. |
| 22 | */ |
| 23 | export const readIvsRealtimeTags = Effect.fn(function* (arn: string) { |
| 24 | const response = yield* ivsrealtime |
| 25 | .listTagsForResource({ resourceArn: arn }) |
| 26 | .pipe(Effect.catch(() => Effect.succeed(undefined))); |
| 27 | return toTagRecord(response?.tags); |
| 28 | }); |
| 29 | |
| 30 | /** |
| 31 | * Sync tags on an IVS Real-Time resource: diff the OBSERVED cloud tags |
| 32 | * against the desired set and apply only the delta. |
| 33 | */ |
| 34 | export const syncIvsRealtimeTags = Effect.fn(function* ( |
| 35 | arn: string, |
| 36 | desiredTags: Record<string, string>, |
| 37 | ) { |
| 38 | const observedTags = yield* readIvsRealtimeTags(arn); |
| 39 | const { removed, upsert } = diffTags(observedTags, desiredTags); |
| 40 | if (upsert.length > 0) { |
| 41 | yield* ivsrealtime |
| 42 | .tagResource({ |
| 43 | resourceArn: arn, |
| 44 | tags: Object.fromEntries(upsert.map((t) => [t.Key, t.Value])), |
| 45 | }) |
| 46 | .pipe(retryWhileThrottled); |
| 47 | } |
| 48 | if (removed.length > 0) { |
| 49 | yield* ivsrealtime |
| 50 | .untagResource({ resourceArn: arn, tagKeys: removed }) |
| 51 | .pipe(retryWhileThrottled); |
| 52 | } |
| 53 | }); |
| 54 | |
| 55 | /** |
| 56 | * Explicitly-typed pipeable retry helper (inlined `Effect.retry` in a |
| 57 | * provider op widens the layer type in declaration emit). Retries |
| 58 | * `ConflictException` — e.g. deleting a stage with an active session — |
| 59 | * on a bounded schedule. |
| 60 | */ |
| 61 | export const retryWhileConflict = <A, E extends { readonly _tag: string }, R>( |
| 62 | self: Effect.Effect<A, E, R>, |
| 63 | ): Effect.Effect<A, E, R> => |
| 64 | Effect.retry(self, { |
| 65 | while: (e) => e._tag === "ConflictException", |
| 66 | schedule: Schedule.max([Schedule.fixed("3 seconds"), Schedule.recurs(8)]), |
| 67 | }); |
| 68 | |
| 69 | /** |
| 70 | * Retries `ThrottlingException` on a bounded exponential schedule. IVS |
| 71 | * APIs have very low TPS limits (e.g. ListPlaybackKeyPairs is 1 TPS), so |
| 72 | * back-to-back reconciles routinely trip 429s. |
| 73 | */ |
| 74 | export const retryWhileThrottled = <A, E extends { readonly _tag: string }, R>( |
| 75 | self: Effect.Effect<A, E, R>, |
| 76 | ): Effect.Effect<A, E, R> => |
| 77 | Effect.retry(self, { |
| 78 | while: (e) => e._tag === "ThrottlingException", |
| 79 | schedule: Schedule.max([ |
| 80 | Schedule.exponential("1 second"), |
| 81 | Schedule.recurs(6), |
| 82 | ]), |
| 83 | }); |