Changeset 33282 in project


Ignore:
Timestamp:
03/16/16 21:06:09 (4 years ago)
Author:
sjamaan
Message:

Modernise the spiffy web server demo a bit by using the simpler sxml-serializer instead of sxml-trasnforms with pre-post-order stuff. Thanks to Norman Gray

File:
1 edited

Legend:

Unmodified
Added
Removed
  • demonstrations/spiffy/webserver.scm

    r20625 r33282  
    11(use spiffy simple-directory-handler
    2      spiffy-uri-match intarweb uri-common sxml-transforms)
     2     spiffy-uri-match intarweb uri-common
     3     sxml-serializer)
    34
    45(define (send-sxml-response sxml)
    56  (with-headers `((connection close))
    6     (lambda ()
    7       (write-logged-response)))
    8   (with-output-to-port (response-port (current-response))
    9     (lambda ()
    10       (SRV:send-reply (pre-post-order sxml universal-conversion-rules)))))
     7                (lambda ()
     8                  (write-logged-response)))
     9  (serialize-sxml sxml
     10                  output: (response-port (current-response))))
    1111
    1212(define my-custom-routes
Note: See TracChangeset for help on using the changeset viewer.