From 796acbeea20d9e85eee3e92091950fb1b9622c9d Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sat, 23 Jul 2016 11:40:18 -0400
Subject: [PATCH] Defaults for web-response-header

---
 racket/syndicate/drivers/web.rkt                    | 10 ++++++++--
 .../syndicate/examples/actor/web-sanity-check.rkt   | 13 +++----------
 2 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt
index ec453b8..57f2d71 100644
--- a/racket/syndicate/drivers/web.rkt
+++ b/racket/syndicate/drivers/web.rkt
@@ -8,10 +8,10 @@
          (struct-out web-request)
          (struct-out web-request-header)
 
-         (struct-out web-response-header)
+         (rename-out [web-response-header <web-response-header>])
+         (struct-out/defaults [make-web-response-header web-response-header])
          (struct-out web-response-complete)
          (struct-out web-response-chunked)
-
          (rename-out [web-response-websocket <web-response-websocket>])
          (struct-out/defaults [make-web-response-websocket web-response-websocket])
 
@@ -61,6 +61,12 @@
 (struct websocket-message (id direction body) #:prefab)
 
 (begin-for-declarations
+  (define-struct-defaults make-web-response-header web-response-header
+    (#:code [web-response-header-code 200]
+     #:message [web-response-header-message #"OK"]
+     #:last-modified-seconds [web-response-header-last-modified-seconds (current-seconds)]
+     #:mime-type [web-response-header-mime-type #"text/html"]
+     #:headers [web-response-header-headers '()]))
   (define-struct-defaults make-web-response-websocket web-response-websocket
     (#:headers [web-response-websocket-headers '()])))
 
diff --git a/racket/syndicate/examples/actor/web-sanity-check.rkt b/racket/syndicate/examples/actor/web-sanity-check.rkt
index 34bbae9..0e7b12c 100644
--- a/racket/syndicate/examples/actor/web-sanity-check.rkt
+++ b/racket/syndicate/examples/actor/web-sanity-check.rkt
@@ -52,11 +52,8 @@
             (react (field [done? #f])
                    (stop-when (rising-edge (done?)))
                    (assert (web-response-chunked id
-                                                 (web-response-header 200
-                                                                      #"Slowly"
-                                                                      (current-seconds)
-                                                                      #"text/plain"
-                                                                      '())))
+                                                 (web-response-header #:message #"Slowly"
+                                                                      #:mime-type #"text/plain")))
                    (on (asserted (observe (web-response-chunk id _)))
                        ;;
                        ;; TODO: output-response-body/chunked in web-server's response.rkt
@@ -82,11 +79,7 @@
             (counter (+ (counter) 1))
             (send! (web-response-complete
                     id
-                    (web-response-header 200
-                                         #"OK"
-                                         (current-seconds)
-                                         #"text/plain"
-                                         '())
+                    (web-response-header #:mime-type #"text/plain")
                     (string->bytes/utf-8
                      (format "Hi there. Your path was ~v, and this is request ~a"
                              path