fix #132

racket · Feb 20, 2024 · c20a625 · c20a625
1 parent 09a5861
commit c20a625
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/web-server-lib/web-server/http/response.rkt b/web-server-lib/web-server/http/response.rkt
@@ -514,12 +514,16 @@
 
 ;; make-200-response : integer bytes integer (listof header) -> basic-response
 (define (make-200-response modified-seconds maybe-mime-type total-content-length headers)
+  (define (ma h)
+    (if (headers-assq* (header-field h) headers)
+      null
+      (list h)))
   (response
    200 #"OK"
    modified-seconds
    maybe-mime-type
-   (append (list (make-header #"Accept-Ranges" #"bytes")
-                 (make-content-length-header total-content-length))
+   (append (ma (make-header #"Accept-Ranges" #"bytes"))
+           (ma (make-content-length-header total-content-length))
            headers)
    void))