summaryrefslogtreecommitdiff
path: root/haunt/jakob/dynamic/rate-limiter.scm
diff options
context:
space:
mode:
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)