effect 4.0.0-beta.87 → 4.0.0-beta.89

package/dist/unstable/persistence/RateLimiter.d.ts

@@ -48,6 +48,8 @@ export interface RateLimiter {
         readonly key: string;
         readonly tokens?: number | undefined;
     }) => Effect.Effect<ConsumeResult, RateLimiterError>;
+    readonly adaptiveConsume: (options: AdaptiveConsumeOptions) => Effect.Effect<AdaptiveConsumeResult, RateLimiterError>;
+    readonly adaptiveFeedback: (options: AdaptiveFeedbackOptions) => Effect.Effect<void, RateLimiterError>;
 }
 /**
  * Service tag for persistent token-consumption services.
@@ -269,6 +271,85 @@ export interface ConsumeResult {
      */
     readonly resetAfter: Duration.Duration;
 }
+/**
+ * Phase of adaptive rate limiting driven by server feedback.
+ *
+ * @category models
+ * @since 4.0.0
+ */
+export type AdaptivePhase = "inactive" | "cooldown" | "learning" | "learned";
+/**
+ * Options for consuming tokens from the adaptive rate limiter store.
+ *
+ * @category models
+ * @since 4.0.0
+ */
+export interface AdaptiveConsumeOptions {
+    /**
+     * The rate-limit key.
+     */
+    readonly key: string;
+    /**
+     * The number of tokens to consume.
+     */
+    readonly tokens: number;
+    /**
+     * The fallback limit configured for the regular rate limiter.
+     */
+    readonly fallbackLimit: number;
+    /**
+     * The fallback window configured for the regular rate limiter.
+     */
+    readonly fallbackWindow: Duration.Duration;
+}
+/**
+ * Metadata returned after consuming tokens from the adaptive rate limiter store.
+ *
+ * @category models
+ * @since 4.0.0
+ */
+export interface AdaptiveConsumeResult {
+    /**
+     * The amount of delay to wait before making the request.
+     */
+    readonly delay: Duration.Duration;
+    /**
+     * The adaptive state epoch used to correlate later response feedback.
+     */
+    readonly epoch: number;
+    /**
+     * The adaptive phase observed by this consume operation.
+     */
+    readonly phase: AdaptivePhase;
+}
+/**
+ * Options for reporting response feedback to the adaptive rate limiter store.
+ *
+ * @category models
+ * @since 4.0.0
+ */
+export interface AdaptiveFeedbackOptions {
+    /**
+     * The rate-limit key.
+     */
+    readonly key: string;
+    /**
+     * The adaptive state epoch returned by `adaptiveConsume`.
+     */
+    readonly epoch: number;
+    /**
+     * The number of tokens consumed by the request.
+     */
+    readonly tokens: number;
+    /**
+     * The HTTP response status code.
+     */
+    readonly status: number;
+    /**
+     * The parsed `Retry-After` delay, when present.
+     */
+    readonly retryAfter: Duration.Duration | undefined;
+}
 declare const RateLimiterStore_base: Context.ServiceClass<RateLimiterStore, "effect/persistence/RateLimiter/RateLimiterStore", {
     /**
      * Returns the token count *after* taking the specified `tokens` and time to
@@ -303,14 +384,25 @@ declare const RateLimiterStore_base: Context.ServiceClass<RateLimiterStore, "eff
         readonly refillRate: Duration.Duration;
         readonly allowOverflow: boolean;
     }) => Effect.Effect<number, RateLimiterError>;
+    /**
+     * Consumes tokens from the adaptive rate-limit state for the `key`.
+     *
+     * When the store has no adaptive state for the `key`, implementations
+     * should return a zero delay with the inactive phase.
+     */
+    readonly adaptiveConsume: (options: AdaptiveConsumeOptions) => Effect.Effect<AdaptiveConsumeResult, RateLimiterError>;
+    /**
+     * Records response feedback for the adaptive rate-limit state.
+     */
+    readonly adaptiveFeedback: (options: AdaptiveFeedbackOptions) => Effect.Effect<void, RateLimiterError>;
 }>;
 /**
- * Defines the low-level backing store for fixed-window counters and token-bucket state.
+ * Defines the low-level backing store for rate-limit state.
  *
  * **When to use**
  *
- * Use to provide the shared counter storage used by persistent rate-limit
- * checks.
+ * Use to provide the shared counter storage and adaptive feedback state used by
+ * persistent rate-limit checks.
  *
  * @category store
  * @since 4.0.0
@@ -367,6 +459,17 @@ export declare const makeStoreRedis: (options?: {
         readonly refillRate: Duration.Duration;
         readonly allowOverflow: boolean;
     }) => Effect.Effect<number, RateLimiterError>;
+    /**
+     * Consumes tokens from the adaptive rate-limit state for the `key`.
+     *
+     * When the store has no adaptive state for the `key`, implementations
+     * should return a zero delay with the inactive phase.
+     */
+    readonly adaptiveConsume: (options: AdaptiveConsumeOptions) => Effect.Effect<AdaptiveConsumeResult, RateLimiterError>;
+    /**
+     * Records response feedback for the adaptive rate-limit state.
+     */
+    readonly adaptiveFeedback: (options: AdaptiveFeedbackOptions) => Effect.Effect<void, RateLimiterError>;
 }, never, Redis.Redis>;
 /**
  * Provides a Redis-backed `RateLimiterStore` using `makeStoreRedis`.

package/dist/unstable/persistence/RateLimiter.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"RateLimiter.d.ts","sourceRoot":"","sources":["../../../src/unstable/persistence/RateLimiter.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;GAWG;AACH,OAAO,KAAK,MAAM,MAAM,iBAAiB,CAAA;AACzC,OAAO,KAAK,OAAO,MAAM,kBAAkB,CAAA;AAC3C,OAAO,KAAK,QAAQ,MAAM,mBAAmB,CAAA;AAC7C,OAAO,KAAK,MAAM,MAAM,iBAAiB,CAAA;AAEzC,OAAO,KAAK,KAAK,MAAM,gBAAgB,CAAA;AACvC,OAAO,KAAK,MAAM,MAAM,iBAAiB,CAAA;AACzC,OAAO,KAAK,KAAK,MAAM,YAAY,CAAA;AAEnC;;;;;GAKG;AACH,eAAO,MAAM,MAAM,EAAE,MAA0C,CAAA;AAE/D;;;;;GAKG;AACH,MAAM,MAAM,MAAM,GAAG,iCAAiC,CAAA;AAEtD;;;;;;GAMG;AACH,MAAM,WAAW,WAAW;IAC1B,QAAQ,CAAC,CAAC,MAAM,CAAC,EAAE,MAAM,CAAA;IAEzB,QAAQ,CAAC,OAAO,EAAE,CAAC,OAAO,EAAE;QAC1B,QAAQ,CAAC,SAAS,CAAC,EAAE,cAAc,GAAG,cAAc,GAAG,SAAS,CAAA;QAChE,QAAQ,CAAC,UAAU,CAAC,EAAE,OAAO,GAAG,MAAM,GAAG,SAAS,CAAA;QAClD,QAAQ,CAAC,MAAM,EAAE,QAAQ,CAAC,KAAK,CAAA;QAC/B,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;QACtB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;KACrC,KAAK,MAAM,CAAC,MAAM,CAAC,aAAa,EAAE,gBAAgB,CAAC,CAAA;CACrD;AAED;;;;;;;;;;GAUG;AACH,eAAO,MAAM,WAAW,EAAE,OAAO,CAAC,OAAO,CAAC,WAAW,EAAE,WAAW,CAAwC,CAAA;AAE1G;;;;;;;;;;GAUG;AACH,eAAO,MAAM,IAAI,EAAE,MAAM,CAAC,MAAM,CAC9B,WAAW,EACX,KAAK,EACL,gBAAgB,CA+HhB,CAAA;AAEF;;;;;GAKG;AACH,eAAO,MAAM,KAAK,EAAE,KAAK,CAAC,KAAK,CAC7B,WAAW,EACX,KAAK,EACL,gBAAgB,CACiB,CAAA;AAEnC;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA4BG;AACH,eAAO,MAAM,mBAAmB,EAAE,MAAM,CAAC,MAAM,CAC7C,CAAC,CAAC,OAAO,EAAE;IACT,QAAQ,CAAC,SAAS,CAAC,EAAE,cAAc,GAAG,cAAc,GAAG,SAAS,CAAA;IAChE,QAAQ,CAAC,UAAU,CAAC,EAAE,OAAO,GAAG,MAAM,GAAG,SAAS,CAAA;IAClD,QAAQ,CAAC,MAAM,EAAE,QAAQ,CAAC,KAAK,CAAA;IAC/B,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IACtB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;IACpB,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CACrC,KAAK,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,MAAM,EAAE,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,KAAK,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,GAAG,gBAAgB,EAAE,CAAC,CAAC,CAAC,EAC7F,KAAK,EACL,WAAW,CAQZ,CAAA;AAED;;;;;;;;;;;;;;;;;;;;;;;;;;GA0BG;AACH,eAAO,MAAM,SAAS,EAAE,MAAM,CAAC,MAAM,CACnC,CAAC,CAAC,OAAO,EAAE;IACT,QAAQ,CAAC,SAAS,CAAC,EAAE,cAAc,GAAG,cAAc,GAAG,SAAS,CAAA;IAChE,QAAQ,CAAC,MAAM,EAAE,QAAQ,CAAC,KAAK,CAAA;IAC/B,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IACtB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;IACpB,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CACrC,KAAK,MAAM,CAAC,MAAM,CAAC,aAAa,EAAE,gBAAgB,CAAC,CAAC,EACrD,KAAK,EACL,WAAW,CAcZ,CAAA;AAED;;;;;GAKG;AACH,eAAO,MAAM,WAAW,EAAE,WAAkE,CAAA;AAE5F;;;;;GAKG;AACH,MAAM,MAAM,WAAW,GAAG,oDAAoD,CAAA;;;;;;;;AAE9E;;;;;;;;;GASG;AACH,qBAAa,iBAAkB,SAAQ,sBAQrC;IACA;;;;OAIG;IACH,IAAa,OAAO,IAAI,MAAM,CAE7B;CACF;;;;;;AAED;;;;;GAKG;AACH,qBAAa,mBAAoB,SAAQ,wBAMvC;CAAG;AAEL;;;;;GAKG;AACH,MAAM,MAAM,sBAAsB,GAAG,iBAAiB,GAAG,mBAAmB,CAAA;AAE5E;;;;;GAKG;AACH,eAAO,MAAM,sBAAsB,EAAE,MAAM,CAAC,KAAK,CAAC;IAChD,OAAO,iBAAiB;IACxB,OAAO,mBAAmB;CAC3B,CAA0D,CAAA;;;;;AAE3D;;;;;;GAMG;AACH,qBAAa,gBAAiB,SAAQ,qBAGpC;gBAEY,KAAK,EAAE;QACjB,QAAQ,CAAC,MAAM,EAAE,sBAAsB,CAAA;KACxC;IAWD;;;;OAIG;IACH,QAAQ,CAAC,CAAC,WAAW,CAAC,EAAE,WAAW,CAAc;IAEjD,IAAa,OAAO,IAAI,MAAM,CAE7B;CACF;AAED;;;;;GAKG;AACH,MAAM,WAAW,aAAa;IAC5B;;;;OAIG;IACH,QAAQ,CAAC,KAAK,EAAE,QAAQ,CAAC,QAAQ,CAAA;IAEjC;;OAEG;IACH,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IAEtB;;OAEG;IACH,QAAQ,CAAC,SAAS,EAAE,MAAM,CAAA;IAE1B;;OAEG;IACH,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;CACvC;;IAgBG;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,KAAK,EAAE,MAAM,GAAG,SAAS,CAAA;KACnC,KAAK,MAAM,CAAC,MAAM,CAAC,SAAS,CAAC,KAAK,EAAE,MAAM,EAAE,GAAG,EAAE,MAAM,CAAC,EAAE,gBAAgB,CAAC;IAE5E;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;QACtB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,aAAa,EAAE,OAAO,CAAA;KAChC,KAAK,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,gBAAgB,CAAC;;AA/CjD;;;;;;;;;;GAUG;AACH,qBAAa,gBAAiB,SAAQ,qBAsCgB;CAAG;AAEzD;;;;;GAKG;AACH,eAAO,MAAM,gBAAgB,EAAE,KAAK,CAAC,KAAK,CACxC,gBAAgB,CAkDhB,CAAA;AAEF;;;;;;GAMG;AACH,eAAO,MAAM,cAAc;sBAEL,MAAM,GAAG,SAAS;;IAzGpC;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,KAAK,EAAE,MAAM,GAAG,SAAS,CAAA;KACnC,KAAK,MAAM,CAAC,MAAM,CAAC,SAAS,CAAC,KAAK,EAAE,MAAM,EAAE,GAAG,EAAE,MAAM,CAAC,EAAE,gBAAgB,CAAC;IAE5E;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;QACtB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,aAAa,EAAE,OAAO,CAAA;KAChC,KAAK,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,gBAAgB,CAAC;sBA0H/C,CAAA;AAgFF;;;;;GAKG;AACH,eAAO,MAAM,eAAe,EAAE,CAC5B,OAAO,CAAC,EAAE;IAAE,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CAAE,KAC/C,KAAK,CAAC,KAAK,CACd,gBAAgB,EAChB,KAAK,EACL,KAAK,CAAC,KAAK,CAC2C,CAAA;AAExD;;;;;;GAMG;AACH,eAAO,MAAM,qBAAqB,GAChC,SAAS,MAAM,CAAC,IAAI,CAAC;IAAE,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CAAE,CAAC,KAC7D,KAAK,CAAC,KAAK,CAAC,gBAAgB,EAAE,MAAM,CAAC,WAAW,EAAE,KAAK,CAAC,KAAK,CAI7D,CAAA"}
+{"version":3,"file":"RateLimiter.d.ts","sourceRoot":"","sources":["../../../src/unstable/persistence/RateLimiter.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;GAWG;AACH,OAAO,KAAK,MAAM,MAAM,iBAAiB,CAAA;AACzC,OAAO,KAAK,OAAO,MAAM,kBAAkB,CAAA;AAC3C,OAAO,KAAK,QAAQ,MAAM,mBAAmB,CAAA;AAC7C,OAAO,KAAK,MAAM,MAAM,iBAAiB,CAAA;AAEzC,OAAO,KAAK,KAAK,MAAM,gBAAgB,CAAA;AACvC,OAAO,KAAK,MAAM,MAAM,iBAAiB,CAAA;AACzC,OAAO,KAAK,KAAK,MAAM,YAAY,CAAA;AAEnC;;;;;GAKG;AACH,eAAO,MAAM,MAAM,EAAE,MAA0C,CAAA;AAE/D;;;;;GAKG;AACH,MAAM,MAAM,MAAM,GAAG,iCAAiC,CAAA;AAEtD;;;;;;GAMG;AACH,MAAM,WAAW,WAAW;IAC1B,QAAQ,CAAC,CAAC,MAAM,CAAC,EAAE,MAAM,CAAA;IAEzB,QAAQ,CAAC,OAAO,EAAE,CAAC,OAAO,EAAE;QAC1B,QAAQ,CAAC,SAAS,CAAC,EAAE,cAAc,GAAG,cAAc,GAAG,SAAS,CAAA;QAChE,QAAQ,CAAC,UAAU,CAAC,EAAE,OAAO,GAAG,MAAM,GAAG,SAAS,CAAA;QAClD,QAAQ,CAAC,MAAM,EAAE,QAAQ,CAAC,KAAK,CAAA;QAC/B,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;QACtB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;KACrC,KAAK,MAAM,CAAC,MAAM,CAAC,aAAa,EAAE,gBAAgB,CAAC,CAAA;IAEpD,QAAQ,CAAC,eAAe,EAAE,CAAC,OAAO,EAAE,sBAAsB,KAAK,MAAM,CAAC,MAAM,CAAC,qBAAqB,EAAE,gBAAgB,CAAC,CAAA;IAErH,QAAQ,CAAC,gBAAgB,EAAE,CAAC,OAAO,EAAE,uBAAuB,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,gBAAgB,CAAC,CAAA;CACvG;AAED;;;;;;;;;;GAUG;AACH,eAAO,MAAM,WAAW,EAAE,OAAO,CAAC,OAAO,CAAC,WAAW,EAAE,WAAW,CAAwC,CAAA;AAE1G;;;;;;;;;;GAUG;AACH,eAAO,MAAM,IAAI,EAAE,MAAM,CAAC,MAAM,CAC9B,WAAW,EACX,KAAK,EACL,gBAAgB,CAiIhB,CAAA;AAEF;;;;;GAKG;AACH,eAAO,MAAM,KAAK,EAAE,KAAK,CAAC,KAAK,CAC7B,WAAW,EACX,KAAK,EACL,gBAAgB,CACiB,CAAA;AAEnC;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA4BG;AACH,eAAO,MAAM,mBAAmB,EAAE,MAAM,CAAC,MAAM,CAC7C,CAAC,CAAC,OAAO,EAAE;IACT,QAAQ,CAAC,SAAS,CAAC,EAAE,cAAc,GAAG,cAAc,GAAG,SAAS,CAAA;IAChE,QAAQ,CAAC,UAAU,CAAC,EAAE,OAAO,GAAG,MAAM,GAAG,SAAS,CAAA;IAClD,QAAQ,CAAC,MAAM,EAAE,QAAQ,CAAC,KAAK,CAAA;IAC/B,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IACtB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;IACpB,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CACrC,KAAK,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,MAAM,EAAE,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,KAAK,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,GAAG,gBAAgB,EAAE,CAAC,CAAC,CAAC,EAC7F,KAAK,EACL,WAAW,CAQZ,CAAA;AAED;;;;;;;;;;;;;;;;;;;;;;;;;;GA0BG;AACH,eAAO,MAAM,SAAS,EAAE,MAAM,CAAC,MAAM,CACnC,CAAC,CAAC,OAAO,EAAE;IACT,QAAQ,CAAC,SAAS,CAAC,EAAE,cAAc,GAAG,cAAc,GAAG,SAAS,CAAA;IAChE,QAAQ,CAAC,MAAM,EAAE,QAAQ,CAAC,KAAK,CAAA;IAC/B,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IACtB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;IACpB,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CACrC,KAAK,MAAM,CAAC,MAAM,CAAC,aAAa,EAAE,gBAAgB,CAAC,CAAC,EACrD,KAAK,EACL,WAAW,CAcZ,CAAA;AAED;;;;;GAKG;AACH,eAAO,MAAM,WAAW,EAAE,WAAkE,CAAA;AAE5F;;;;;GAKG;AACH,MAAM,MAAM,WAAW,GAAG,oDAAoD,CAAA;;;;;;;;AAE9E;;;;;;;;;GASG;AACH,qBAAa,iBAAkB,SAAQ,sBAQrC;IACA;;;;OAIG;IACH,IAAa,OAAO,IAAI,MAAM,CAE7B;CACF;;;;;;AAED;;;;;GAKG;AACH,qBAAa,mBAAoB,SAAQ,wBAMvC;CAAG;AAEL;;;;;GAKG;AACH,MAAM,MAAM,sBAAsB,GAAG,iBAAiB,GAAG,mBAAmB,CAAA;AAE5E;;;;;GAKG;AACH,eAAO,MAAM,sBAAsB,EAAE,MAAM,CAAC,KAAK,CAAC;IAChD,OAAO,iBAAiB;IACxB,OAAO,mBAAmB;CAC3B,CAA0D,CAAA;;;;;AAE3D;;;;;;GAMG;AACH,qBAAa,gBAAiB,SAAQ,qBAGpC;gBAEY,KAAK,EAAE;QACjB,QAAQ,CAAC,MAAM,EAAE,sBAAsB,CAAA;KACxC;IAWD;;;;OAIG;IACH,QAAQ,CAAC,CAAC,WAAW,CAAC,EAAE,WAAW,CAAc;IAEjD,IAAa,OAAO,IAAI,MAAM,CAE7B;CACF;AAED;;;;;GAKG;AACH,MAAM,WAAW,aAAa;IAC5B;;;;OAIG;IACH,QAAQ,CAAC,KAAK,EAAE,QAAQ,CAAC,QAAQ,CAAA;IAEjC;;OAEG;IACH,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IAEtB;;OAEG;IACH,QAAQ,CAAC,SAAS,EAAE,MAAM,CAAA;IAE1B;;OAEG;IACH,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;CACvC;AAED;;;;;GAKG;AACH,MAAM,MAAM,aAAa,GAAG,UAAU,GAAG,UAAU,GAAG,UAAU,GAAG,SAAS,CAAA;AAE5E;;;;;GAKG;AACH,MAAM,WAAW,sBAAsB;IACrC;;OAEG;IACH,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;IAEpB;;OAEG;IACH,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;IAEvB;;OAEG;IACH,QAAQ,CAAC,aAAa,EAAE,MAAM,CAAA;IAE9B;;OAEG;IACH,QAAQ,CAAC,cAAc,EAAE,QAAQ,CAAC,QAAQ,CAAA;CAC3C;AAED;;;;;GAKG;AACH,MAAM,WAAW,qBAAqB;IACpC;;OAEG;IACH,QAAQ,CAAC,KAAK,EAAE,QAAQ,CAAC,QAAQ,CAAA;IAEjC;;OAEG;IACH,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IAEtB;;OAEG;IACH,QAAQ,CAAC,KAAK,EAAE,aAAa,CAAA;CAC9B;AAED;;;;;GAKG;AACH,MAAM,WAAW,uBAAuB;IACtC;;OAEG;IACH,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;IAEpB;;OAEG;IACH,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;IAEtB;;OAEG;IACH,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;IAEvB;;OAEG;IACH,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;IAEvB;;OAEG;IACH,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,GAAG,SAAS,CAAA;CACnD;;IAgBG;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,KAAK,EAAE,MAAM,GAAG,SAAS,CAAA;KACnC,KAAK,MAAM,CAAC,MAAM,CAAC,SAAS,CAAC,KAAK,EAAE,MAAM,EAAE,GAAG,EAAE,MAAM,CAAC,EAAE,gBAAgB,CAAC;IAE5E;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;QACtB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,aAAa,EAAE,OAAO,CAAA;KAChC,KAAK,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,gBAAgB,CAAC;IAE7C;;;;;OAKG;8BACuB,CACxB,OAAO,EAAE,sBAAsB,KAC5B,MAAM,CAAC,MAAM,CAAC,qBAAqB,EAAE,gBAAgB,CAAC;IAE3D;;OAEG;+BACwB,CAAC,OAAO,EAAE,uBAAuB,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,gBAAgB,CAAC;;AA9D1G;;;;;;;;;;GAUG;AACH,qBAAa,gBAAiB,SAAQ,qBAqDgB;CAAG;AAqBzD;;;;;GAKG;AACH,eAAO,MAAM,gBAAgB,EAAE,KAAK,CAAC,KAAK,CACxC,gBAAgB,CAiNhB,CAAA;AAEF;;;;;;GAMG;AACH,eAAO,MAAM,cAAc;sBAEL,MAAM,GAAG,SAAS;;IA1SpC;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,KAAK,EAAE,MAAM,GAAG,SAAS,CAAA;KACnC,KAAK,MAAM,CAAC,MAAM,CAAC,SAAS,CAAC,KAAK,EAAE,MAAM,EAAE,GAAG,EAAE,MAAM,CAAC,EAAE,gBAAgB,CAAC;IAE5E;;;;;;;;;OASG;0BACmB,CAAC,OAAO,EAAE;QAC9B,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;QACpB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAA;QACvB,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;QACtB,QAAQ,CAAC,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAA;QACtC,QAAQ,CAAC,aAAa,EAAE,OAAO,CAAA;KAChC,KAAK,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,gBAAgB,CAAC;IAE7C;;;;;OAKG;8BACuB,CACxB,OAAO,EAAE,sBAAsB,KAC5B,MAAM,CAAC,MAAM,CAAC,qBAAqB,EAAE,gBAAgB,CAAC;IAE3D;;OAEG;+BACwB,CAAC,OAAO,EAAE,uBAAuB,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,gBAAgB,CAAC;sBA+VxG,CAAA;AA4UF;;;;;GAKG;AACH,eAAO,MAAM,eAAe,EAAE,CAC5B,OAAO,CAAC,EAAE;IAAE,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CAAE,KAC/C,KAAK,CAAC,KAAK,CACd,gBAAgB,EAChB,KAAK,EACL,KAAK,CAAC,KAAK,CAC2C,CAAA;AAExD;;;;;;GAMG;AACH,eAAO,MAAM,qBAAqB,GAChC,SAAS,MAAM,CAAC,IAAI,CAAC;IAAE,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,GAAG,SAAS,CAAA;CAAE,CAAC,KAC7D,KAAK,CAAC,KAAK,CAAC,gBAAgB,EAAE,MAAM,CAAC,WAAW,EAAE,KAAK,CAAC,KAAK,CAI7D,CAAA"}

package/dist/unstable/persistence/RateLimiter.js

@@ -52,6 +52,8 @@ export const make = /*#__PURE__*/Effect.gen(function* () {
   const store = yield* RateLimiterStore;
   return identity({
     [TypeId]: TypeId,
+    adaptiveConsume: store.adaptiveConsume,
+    adaptiveFeedback: store.adaptiveFeedback,
     consume(options) {
       const tokens = options.tokens ?? 1;
       const onExceeded = options.onExceeded ?? "fail";
@@ -317,17 +319,23 @@ export class RateLimiterError extends /*#__PURE__*/Schema.ErrorClass(ErrorTypeId
   }
 }
 /**
- * Defines the low-level backing store for fixed-window counters and token-bucket state.
+ * Defines the low-level backing store for rate-limit state.
  *
  * **When to use**
  *
- * Use to provide the shared counter storage used by persistent rate-limit
- * checks.
+ * Use to provide the shared counter storage and adaptive feedback state used by
+ * persistent rate-limit checks.
  *
  * @category store
  * @since 4.0.0
  */
 export class RateLimiterStore extends /*#__PURE__*/Context.Service()("effect/persistence/RateLimiter/RateLimiterStore") {}
+const adaptiveStateTtlGraceMillis = 60_000;
+const adaptiveStateMaxWindowMillis = 60 * 60 * 1_000;
+const clampAdaptiveDurationMillis = millis => {
+  if (Number.isNaN(millis) || millis <= 0) return 1;
+  return Math.min(millis, adaptiveStateMaxWindowMillis);
+};
 /**
  * Provides a process-local in-memory `RateLimiterStore`.
  *
@@ -337,6 +345,19 @@ export class RateLimiterStore extends /*#__PURE__*/Context.Service()("effect/per
 export const layerStoreMemory = /*#__PURE__*/Layer.sync(RateLimiterStore, () => {
   const fixedCounters = new Map();
   const tokenBuckets = new Map();
+  const adaptiveStates = new Map();
+  const getAdaptiveState = (key, now) => {
+    const state = adaptiveStates.get(key);
+    if (!state) return undefined;
+    if (state.expiresAt <= now) {
+      adaptiveStates.delete(key);
+      return undefined;
+    }
+    return state;
+  };
+  const cooldownExpiresAt = cooldownUntil => cooldownUntil + adaptiveStateTtlGraceMillis;
+  const learningExpiresAt = (now, fallbackWindow) => now + Duration.toMillis(fallbackWindow) + adaptiveStateTtlGraceMillis;
+  const learnedExpiresAt = (now, learnedWindowMillis) => now + learnedWindowMillis + adaptiveStateTtlGraceMillis;
   return RateLimiterStore.of({
     fixedWindow: options => Effect.clockWith(clock => Effect.sync(() => {
       const refillRateMillis = Duration.toMillis(options.refillRate);
@@ -379,6 +400,126 @@ export const layerStoreMemory = /*#__PURE__*/Layer.sync(RateLimiterStore, () =>
         bucket.tokens = newTokenCount;
       }
       return newTokenCount;
+    })),
+    adaptiveConsume: options => Effect.clockWith(clock => Effect.sync(() => {
+      const now = clock.currentTimeMillisUnsafe();
+      const state = getAdaptiveState(options.key, now);
+      if (!state) {
+        return {
+          delay: Duration.zero,
+          epoch: 0,
+          phase: "inactive"
+        };
+      }
+      if (state.phase === "cooldown") {
+        if (state.cooldownUntil > now) {
+          return {
+            delay: Duration.millis(state.cooldownUntil - now),
+            epoch: state.epoch,
+            phase: "cooldown"
+          };
+        }
+        state.phase = "learning";
+        state.epoch += 1;
+        state.learningStartedAt = now;
+        state.observedTokens = options.tokens;
+        state.expiresAt = learningExpiresAt(now, options.fallbackWindow);
+        return {
+          delay: Duration.zero,
+          epoch: state.epoch,
+          phase: "learning"
+        };
+      }
+      if (state.phase === "learning") {
+        state.observedTokens += options.tokens;
+        return {
+          delay: Duration.zero,
+          epoch: state.epoch,
+          phase: state.phase
+        };
+      }
+      if (state.phase === "learned") {
+        const refillRateMillis = state.learnedWindowMillis / state.learnedLimit;
+        if (state.cooldownUntil <= now) {
+          state.observedTokens = 0;
+          state.cooldownUntil = now;
+        }
+        state.observedTokens += options.tokens;
+        state.cooldownUntil += refillRateMillis * options.tokens;
+        const ttl = state.cooldownUntil - now;
+        const ttlTotal = state.observedTokens * refillRateMillis;
+        const elapsed = ttlTotal - ttl;
+        const windowNumber = Math.floor((state.observedTokens - 1) / state.learnedLimit);
+        const remaining = windowNumber * state.learnedWindowMillis - elapsed;
+        return {
+          delay: remaining <= 0 ? Duration.zero : Duration.millis(remaining),
+          epoch: state.epoch,
+          phase: state.phase
+        };
+      }
+      return {
+        delay: Duration.zero,
+        epoch: state.epoch,
+        phase: state.phase
+      };
+    })),
+    adaptiveFeedback: options => Effect.clockWith(clock => Effect.sync(() => {
+      if (options.status !== 429 || options.retryAfter === undefined) return;
+      const retryAfterMillis = clampAdaptiveDurationMillis(Duration.toMillis(options.retryAfter));
+      const now = clock.currentTimeMillisUnsafe();
+      const cooldownUntil = now + retryAfterMillis;
+      const state = getAdaptiveState(options.key, now);
+      if (!state) {
+        if (options.epoch !== 0) return;
+        adaptiveStates.set(options.key, {
+          phase: "cooldown",
+          epoch: 0,
+          cooldownUntil,
+          learningStartedAt: 0,
+          observedTokens: 0,
+          learnedLimit: 0,
+          learnedWindowMillis: 0,
+          expiresAt: cooldownExpiresAt(cooldownUntil)
+        });
+        return;
+      }
+      if (state.epoch !== options.epoch) return;
+      if (state.phase === "cooldown") {
+        state.cooldownUntil = Math.max(state.cooldownUntil, cooldownUntil);
+        state.expiresAt = cooldownExpiresAt(state.cooldownUntil);
+        return;
+      }
+      if (state.phase === "learning") {
+        const acceptedTokens = state.observedTokens - options.tokens;
+        if (acceptedTokens <= 0) {
+          state.phase = "cooldown";
+          state.cooldownUntil = cooldownUntil;
+          state.learningStartedAt = 0;
+          state.observedTokens = 0;
+          state.learnedLimit = 0;
+          state.learnedWindowMillis = 0;
+          state.expiresAt = cooldownExpiresAt(cooldownUntil);
+          return;
+        }
+        const learnedWindowMillis = clampAdaptiveDurationMillis(now - state.learningStartedAt + retryAfterMillis);
+        state.phase = "learned";
+        state.epoch += 1;
+        state.cooldownUntil = state.learningStartedAt + learnedWindowMillis;
+        state.observedTokens = acceptedTokens;
+        state.learnedLimit = acceptedTokens;
+        state.learnedWindowMillis = learnedWindowMillis;
+        state.expiresAt = learnedExpiresAt(now, learnedWindowMillis);
+        return;
+      }
+      if (state.phase === "learned") {
+        state.phase = "cooldown";
+        state.cooldownUntil = cooldownUntil;
+        state.learningStartedAt = 0;
+        state.observedTokens = 0;
+        state.learnedLimit = 0;
+        state.learnedWindowMillis = 0;
+        state.expiresAt = cooldownExpiresAt(cooldownUntil);
+      }
     }))
   });
 });
@@ -394,6 +535,8 @@ export const makeStoreRedis = /*#__PURE__*/Effect.fnUntraced(function* (options)
   const redis = yield* Redis.Redis;
   const fixedWindow = redis.eval(fixedWindowScript);
   const tokenBucket = redis.eval(tokenBucketScript);
+  const adaptiveConsume = redis.eval(adaptiveConsumeScript);
+  const adaptiveFeedback = redis.eval(adaptiveFeedbackScript);
   return RateLimiterStore.of({
     fixedWindow(options) {
       const key = `${prefix}${options.key}`;
@@ -415,6 +558,30 @@ export const makeStoreRedis = /*#__PURE__*/Effect.fnUntraced(function* (options)
           cause
         })
       })));
+    },
+    adaptiveConsume(options) {
+      const key = `${prefix}${options.key}:adaptive`;
+      return Effect.map(Effect.mapError(adaptiveConsume(key, options.tokens, Duration.toMillis(options.fallbackWindow), adaptiveStateTtlGraceMillis), cause => new RateLimiterError({
+        reason: new RateLimitStoreError({
+          message: `Failed to execute adaptiveConsume rate limiting command`,
+          cause: cause.cause
+        })
+      })), ([delayMillis, epoch, phase]) => ({
+        delay: delayMillis <= 0 ? Duration.zero : Duration.millis(delayMillis),
+        epoch,
+        phase
+      }));
+    },
+    adaptiveFeedback(options) {
+      if (options.status !== 429 || options.retryAfter === undefined) return Effect.void;
+      const retryAfterMillis = clampAdaptiveDurationMillis(Duration.toMillis(options.retryAfter));
+      const key = `${prefix}${options.key}:adaptive`;
+      return Effect.asVoid(Effect.mapError(adaptiveFeedback(key, options.epoch, options.tokens, retryAfterMillis, adaptiveStateTtlGraceMillis, adaptiveStateMaxWindowMillis), cause => new RateLimiterError({
+        reason: new RateLimitStoreError({
+          message: `Failed to execute adaptiveFeedback rate limiting command`,
+          cause: cause.cause
+        })
+      })));
     }
   });
 });
@@ -428,7 +595,7 @@ local limit = tonumber(ARGV[3])
 local current = tonumber(redis.call("GET", key))
 
 if not current then
-  local nextpttl = refillms * tokens
+  local nextpttl = math.max(1, math.ceil(refillms * tokens))
   redis.call("SET", key, tokens, "PX", nextpttl)
   return { tokens, nextpttl }
 end
@@ -439,7 +606,7 @@ if limit and next > limit then
   return { next, currentpttl }
 end
 
-local nextpttl = currentpttl + (refillms * tokens)
+local nextpttl = math.max(1, math.ceil(currentpttl + (refillms * tokens)))
 redis.call("SET", key, next, "PX", nextpttl)
 return { next, nextpttl }
 `
@@ -480,6 +647,231 @@ redis.call("SET", last_refill_key, last_refill, "PX", ttl)
 return next
 `
 }).withReturnType();
+const adaptiveConsumeScript = /*#__PURE__*/Redis.script((key, tokens, fallbackWindowMillis, ttlGraceMillis) => [key, tokens, fallbackWindowMillis, ttlGraceMillis], {
+  numberOfKeys: 1,
+  lua: `
+local key = KEYS[1]
+local tokens = tonumber(ARGV[1])
+local fallback_window_ms = tonumber(ARGV[2])
+local ttl_grace_ms = tonumber(ARGV[3])
+
+local time = redis.call("TIME")
+local now = (tonumber(time[1]) * 1000) + math.floor(tonumber(time[2]) / 1000)
+
+local phase = redis.call("HGET", key, "phase")
+if not phase then
+  return { 0, 0, "inactive" }
+end
+
+local epoch = tonumber(redis.call("HGET", key, "epoch") or "0")
+
+if phase == "cooldown" then
+  local cooldown_until = tonumber(redis.call("HGET", key, "cooldownUntil") or "0")
+  if cooldown_until > now then
+    return { math.ceil(cooldown_until - now), epoch, "cooldown" }
+  end
+
+  epoch = epoch + 1
+  redis.call(
+    "HSET",
+    key,
+    "phase",
+    "learning",
+    "epoch",
+    epoch,
+    "cooldownUntil",
+    0,
+    "learningStartedAt",
+    now,
+    "observedTokens",
+    tokens,
+    "learnedLimit",
+    0,
+    "learnedWindowMillis",
+    0
+  )
+  redis.call("PEXPIRE", key, math.max(1, math.ceil(fallback_window_ms + ttl_grace_ms)))
+  return { 0, epoch, "learning" }
+end
+
+if phase == "learning" then
+  local observed_tokens = tonumber(redis.call("HGET", key, "observedTokens") or "0") + tokens
+  redis.call("HSET", key, "observedTokens", observed_tokens)
+  return { 0, epoch, "learning" }
+end
+
+if phase == "learned" then
+  local cooldown_until = tonumber(redis.call("HGET", key, "cooldownUntil") or "0")
+  local observed_tokens = tonumber(redis.call("HGET", key, "observedTokens") or "0")
+  local learned_limit = tonumber(redis.call("HGET", key, "learnedLimit") or "0")
+  local learned_window_ms = tonumber(redis.call("HGET", key, "learnedWindowMillis") or "0")
+  local refill_rate_ms = learned_window_ms / learned_limit
+
+  if cooldown_until <= now then
+    observed_tokens = 0
+    cooldown_until = now
+  end
+
+  observed_tokens = observed_tokens + tokens
+  cooldown_until = cooldown_until + (refill_rate_ms * tokens)
+
+  local ttl = cooldown_until - now
+  local ttl_total = observed_tokens * refill_rate_ms
+  local elapsed = ttl_total - ttl
+  local window_number = math.floor((observed_tokens - 1) / learned_limit)
+  local remaining = (window_number * learned_window_ms) - elapsed
+
+  redis.call("HSET", key, "observedTokens", observed_tokens, "cooldownUntil", cooldown_until)
+
+  if remaining <= 0 then
+    return { 0, epoch, "learned" }
+  end
+  return { math.ceil(remaining), epoch, "learned" }
+end
+
+return { 0, epoch, phase }
+`
+}).withReturnType();
+const adaptiveFeedbackScript = /*#__PURE__*/Redis.script((key, epoch, tokens, retryAfterMillis, ttlGraceMillis, maxWindowMillis) => [key, epoch, tokens, retryAfterMillis, ttlGraceMillis, maxWindowMillis], {
+  numberOfKeys: 1,
+  lua: `
+local key = KEYS[1]
+local feedback_epoch = tonumber(ARGV[1])
+local tokens = tonumber(ARGV[2])
+local retry_after_ms = tonumber(ARGV[3])
+local ttl_grace_ms = tonumber(ARGV[4])
+local max_window_ms = tonumber(ARGV[5])
+
+if retry_after_ms <= 0 then
+  retry_after_ms = 1
+end
+if retry_after_ms > max_window_ms then
+  retry_after_ms = max_window_ms
+end
+
+local time = redis.call("TIME")
+local now = (tonumber(time[1]) * 1000) + math.floor(tonumber(time[2]) / 1000)
+local cooldown_until = now + retry_after_ms
+
+local phase = redis.call("HGET", key, "phase")
+if not phase then
+  if feedback_epoch ~= 0 then
+    return 0
+  end
+  redis.call(
+    "HSET",
+    key,
+    "phase",
+    "cooldown",
+    "epoch",
+    0,
+    "cooldownUntil",
+    cooldown_until,
+    "learningStartedAt",
+    0,
+    "observedTokens",
+    0,
+    "learnedLimit",
+    0,
+    "learnedWindowMillis",
+    0
+  )
+  redis.call("PEXPIRE", key, math.max(1, math.ceil(retry_after_ms + ttl_grace_ms)))
+  return 1
+end
+
+local epoch = tonumber(redis.call("HGET", key, "epoch") or "0")
+if epoch ~= feedback_epoch then
+  return 0
+end
+
+if phase == "cooldown" then
+  local current_cooldown_until = tonumber(redis.call("HGET", key, "cooldownUntil") or "0")
+  if current_cooldown_until > cooldown_until then
+    cooldown_until = current_cooldown_until
+  end
+  redis.call("HSET", key, "cooldownUntil", cooldown_until)
+  redis.call("PEXPIRE", key, math.max(1, math.ceil((cooldown_until - now) + ttl_grace_ms)))
+  return 1
+end
+
+if phase == "learning" then
+  local observed_tokens = tonumber(redis.call("HGET", key, "observedTokens") or "0")
+  local accepted_tokens = observed_tokens - tokens
+  if accepted_tokens <= 0 then
+    redis.call(
+      "HSET",
+      key,
+      "phase",
+      "cooldown",
+      "cooldownUntil",
+      cooldown_until,
+      "learningStartedAt",
+      0,
+      "observedTokens",
+      0,
+      "learnedLimit",
+      0,
+      "learnedWindowMillis",
+      0
+    )
+    redis.call("PEXPIRE", key, math.max(1, math.ceil(retry_after_ms + ttl_grace_ms)))
+    return 1
+  end
+
+  local learning_started_at = tonumber(redis.call("HGET", key, "learningStartedAt") or now)
+  local learned_window_ms = (now - learning_started_at) + retry_after_ms
+  if learned_window_ms <= 0 then
+    learned_window_ms = 1
+  end
+  if learned_window_ms > max_window_ms then
+    learned_window_ms = max_window_ms
+  end
+  local next_epoch = epoch + 1
+  redis.call(
+    "HSET",
+    key,
+    "phase",
+    "learned",
+    "epoch",
+    next_epoch,
+    "cooldownUntil",
+    learning_started_at + learned_window_ms,
+    "observedTokens",
+    accepted_tokens,
+    "learnedLimit",
+    accepted_tokens,
+    "learnedWindowMillis",
+    learned_window_ms
+  )
+  redis.call("PEXPIRE", key, math.max(1, math.ceil(learned_window_ms + ttl_grace_ms)))
+  return 1
+end
+
+if phase == "learned" then
+  redis.call(
+    "HSET",
+    key,
+    "phase",
+    "cooldown",
+    "cooldownUntil",
+    cooldown_until,
+    "learningStartedAt",
+    0,
+    "observedTokens",
+    0,
+    "learnedLimit",
+    0,
+    "learnedWindowMillis",
+    0
+  )
+  redis.call("PEXPIRE", key, math.max(1, math.ceil(retry_after_ms + ttl_grace_ms)))
+  return 1
+end
+
+return 0
+`
+}).withReturnType();
 /**
  * Provides a Redis-backed `RateLimiterStore` using `makeStoreRedis`.
  *