Changeset 33965 in project


Ignore:
Timestamp:
04/16/17 12:34:34 (8 months ago)
Author:
sjamaan
Message:

spiffy: Fix date and last-modified headers to be proper 2-element vectors

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/spiffy.scm

    r33423 r33965  
    22;; Spiffy the web server
    33;;
    4 ; Copyright (c) 2007-2016, Peter Bex
     4; Copyright (c) 2007-2017, Peter Bex
    55; Copyright (c) 2000-2005, Felix L. Winkelmann
    66; All rights reserved.
     
    255255  ;; So we do it here, as this is the very last moment where we're able
    256256  ;; to get a current timestamp.
    257   (with-headers `((date #(,(seconds->utc-time (current-seconds)))))
     257  (with-headers `((date #(,(seconds->utc-time (current-seconds)) ())))
    258258    (lambda ()
    259259      (write-response (current-response)))))
     
    325325                            (update-response (current-response) status: 'not-modified)
    326326                            (current-response))))
    327           (with-headers `((last-modified #(,(seconds->utc-time last-modified)))
     327          (with-headers `((last-modified #(,(seconds->utc-time last-modified) ()))
    328328                          (etag ,etag)
    329329                          (content-length ,(if unmodified 0 size))
Note: See TracChangeset for help on using the changeset viewer.