Merge branch 'ide' of github.com:mighty-gerbils/gerbil into ide

mighty-gerbils · Jan 15, 2025 · 39e2b56 · 39e2b56
2 parents ec4ff99 + eb4ea21
commit 39e2b56
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/tools/gxhttpd.ss b/src/tools/gxhttpd.ss
@@ -478,11 +478,11 @@
   => :procedure
   (let* ((content-type (path-extension->mime-type-name path))
          (headers
-          [(if content-type
+          [["Content-Length" :: (number->string (file-info-size info))]
+	   (if content-type
              ["Content-Type" :: content-type]
              ["Content-Type" :: "application/octet-stream"])
-           ["Last-Modified" :: (number->string (exact (floor (time->seconds (file-info-last-modification-time info)))))]
-           ["Content-Length" :: (number->string (file-info-size info))]]))
+           ["Last-Modified" :: (number->string (exact (floor (time->seconds (file-info-last-modification-time info)))))]]))
 
     (if (fx<= (file-info-size info) max-file-cache-size)
       ;; cache the content
@@ -501,12 +501,13 @@
         (using (req :- http-request)
           (case req.method
             ((GET)
-             (http-response-file res headers path))
+             (http-response-file res (cdr headers) path))
             ((HEAD)
              (http-response-write res 200 headers #f))
             (else
              (http-response-write-condition res Forbidden))))))))
 
+
 (def (find-handler tab server-path)
   (let loop ((path server-path))
     (cond