suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Applying GMT RFC1123 patch from YC

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-24 22:50:46 -05:00
parent 11f2653b7e
commit 32377647f8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/http/response.rkt
View File

@ -125,9 +125,7 @@
; format is rfc1123 compliant according to rfc2068 (http/1.1)
(define (seconds->gmt-string s)
(let* ([local-date (seconds->date s)]
[date (seconds->date (- s
(date-time-zone-offset local-date)
(if (date-dst? local-date) 3600 0)))])
[date (seconds->date (- s (date-time-zone-offset local-date)))])
(format "~a, ~a ~a ~a ~a:~a:~a GMT"
(vector-ref DAYS (date-week-day date))
(two-digits (date-day date))