Make some web server example code use a valid URL.

This commit is contained in:
Eli Barzilay 2012-07-23 20:54:31 -04:00
parent 5b6c65b6c9
commit 8e889cfdb1

View File

@ -184,7 +184,7 @@ Here is an example typical of what you will find in many applications:
301 #"Moved Permanently" 301 #"Moved Permanently"
(current-seconds) TEXT/HTML-MIME-TYPE (current-seconds) TEXT/HTML-MIME-TYPE
(list (make-header #"Location" (list (make-header #"Location"
#"http://racket-lang.org/downloads")) #"http://racket-lang.org/download"))
(λ (op) (write-bytes #"Moved" op))) (λ (op) (write-bytes #"Moved" op)))
] ]
} }
@ -200,10 +200,10 @@ Here is an example typical of what you will find in many applications:
301 #"Moved Permanently" 301 #"Moved Permanently"
(current-seconds) TEXT/HTML-MIME-TYPE (current-seconds) TEXT/HTML-MIME-TYPE
(list (make-header #"Location" (list (make-header #"Location"
#"http://racket-lang.org/downloads")) #"http://racket-lang.org/download"))
(list #"<html><body><p>" (list #"<html><body><p>"
#"Please go to <a href=\"" #"Please go to <a href=\""
#"http://racket-lang.org/downloads" #"http://racket-lang.org/download"
#"\">here</a> instead." #"\">here</a> instead."
#"</p></body></html>")) #"</p></body></html>"))
] ]