summaryrefslogtreecommitdiff
path: root/haunt/jakob/dynamic/rate-limiter.scm
diff options
context:
space:
mode:
authorJakob L. Kreuze <zerodaysfordays@sdf.org>2022-12-03 12:57:43 -0500
committerJakob L. Kreuze <zerodaysfordays@sdf.org>2022-12-03 12:57:43 -0500
commit59f3b1b7899e11a7b6c117e25041245c8acf65d6 (patch)
treecb96437088dd2779b32f10f53c0f30e75ff180e6 /haunt/jakob/dynamic/rate-limiter.scm
parentcce41bf0df30a52a32daedb717c3a21181635dcf (diff)
[dynamic] Reach out to API instead of PostgreSQL
Diffstat (limited to 'haunt/jakob/dynamic/rate-limiter.scm')
-rw-r--r--haunt/jakob/dynamic/rate-limiter.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/haunt/jakob/dynamic/rate-limiter.scm b/haunt/jakob/dynamic/rate-limiter.scm
index d6ef28c..fb251a1 100644
--- a/haunt/jakob/dynamic/rate-limiter.scm
+++ b/haunt/jakob/dynamic/rate-limiter.scm
@@ -35,7 +35,10 @@
(define active-rate-limits (make-hash-table))
-(define (rate-limit-for-endpoint name) 32)
+(define (rate-limit-for-endpoint name)
+ (case name
+ ((get-comments) 1024)
+ (else 32)))
(define (increment-key! hash-table key)
(let ((new-value (if (hash-ref hash-table key)