Changeset 33282 in project

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:

• demonstrations/spiffy/webserver.scm (modified) (1 diff)

demonstrations/spiffy/webserver.scm

@@ -1 +1 @@
 (use spiffy simple-directory-handler
-     spiffy-uri-match intarweb uri-common sxml-transforms)
+     spiffy-uri-match intarweb uri-common
+     sxml-serializer)
 
 (define (send-sxml-response sxml)
   (with-headers `((connection close))
-    (lambda ()
-      (write-logged-response)))
-  (with-output-to-port (response-port (current-response))
-    (lambda ()
-      (SRV:send-reply (pre-post-order sxml universal-conversion-rules)))))
+                (lambda ()
+                  (write-logged-response)))
+  (serialize-sxml sxml
+                  output: (response-port (current-response))))
 
 (define my-custom-routes