summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c344305)
* 8sync/systems/web.scm (maybe-upgrade-request): Compare using
string-ci=? Fixes upgrade request for "WebSocket".
;;; 8sync --- Asynchronous programming for Guile
;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
;;; 8sync --- Asynchronous programming for Guile
;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;;
;;; Code (also under the LGPL) borrowed from fibers:
;;; Copyright © 2016 Andy Wingo <wingo@pobox.com>
;;;
;;; Code (also under the LGPL) borrowed from fibers:
;;; Copyright © 2016 Andy Wingo <wingo@pobox.com>
#:use-module (web server)
#:use-module (rnrs io ports)
#:use-module (8sync)
#:use-module (web server)
#:use-module (rnrs io ports)
#:use-module (8sync)
+ #:use-module ((srfi srfi-1) #:select (assoc))
#:export (<web-server>
;; @@: If we don't want to import these because of
;; "conflicts" with other objects, we could just
#:export (<web-server>
;; @@: If we don't want to import these because of
;; "conflicts" with other objects, we could just
(let loop ((upgrades (request-upgrade request)))
(if (eq? upgrades '())
#f ; Shouldn't upgrade
(let loop ((upgrades (request-upgrade request)))
(if (eq? upgrades '())
#f ; Shouldn't upgrade
- (match (assoc (car upgrades) upgrade-paths)
+ (match (assoc (car upgrades) upgrade-paths string-ci=?)
;; Yes, upgrade with this method
((_ . upgrade-proc)
upgrade-proc)
;; Yes, upgrade with this method
((_ . upgrade-proc)
upgrade-proc)