$ diff -u old-srv.arc new-srv.arc --- old-srv.arc 2009-08-04 11:51:09.000000000 -0700 +++ new-srv.arc 2009-10-10 16:11:21.000000000 -0700 @@ -152,10 +152,11 @@ Connection: close")) (map (fn ((k v)) (= (type-header* k) (gen-type-header v))) - '((gif "image/gif") - (jpg "image/jpeg") - (png "image/png") - (text/html "text/html; charset=utf-8"))) + '((gif "image/gif") + (jpg "image/jpeg") + (png "image/png") + (text/html "text/html; charset=utf-8") + (text/javascript "text/javascript"))) (= rdheader* "HTTP/1.0 302 Moved") @@ -242,6 +243,7 @@ "htm" 'text/html "html" 'text/html "arc" 'text/html + "js" 'text/javascript )))) (def respond-err (str msg . args)
-----