From cc3ef674b8f5bb36581a76421cf7480c875b736a Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 15 Jan 2008 23:18:57 +0000
Subject: [PATCH] up

svn: r8339
---
 collects/web-server/scribblings/running.scrbl | 20 +++++++++++++++++++
 collects/web-server/scribblings/servlet.scrbl |  2 +-
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/collects/web-server/scribblings/running.scrbl b/collects/web-server/scribblings/running.scrbl
index 262f88f318..46aed0b8db 100644
--- a/collects/web-server/scribblings/running.scrbl
+++ b/collects/web-server/scribblings/running.scrbl
@@ -52,7 +52,27 @@ dispatcher. See @filepath{run.ss} for an example of such a script.
  Constructs an appropriate @scheme[dispatch-config^], invokes the @scheme[dispatch-server\@],
  and calls its @scheme[serve] function.
 }
+                   
+@; XXX Not the right `server' above.
 
+Here's an example of a simple web server that serves files
+from a given path:
+
+@require[(for-label web-server/dispatchers/filesystem-map)]
+@require[(prefix-in files: (for-label web-server/dispatchers/dispatch-files))]
+
+@schemeblock[
+(define (start-file-server base)
+  (serve 
+   #:dispatch
+   (files:make
+    #:url->path (make-url->path base)
+    #:path->mime-type
+    (lambda (path)
+      #"application/octet-stream"))
+   #:port 8080))
+]            
+                   
 @defproc[(serve/ports [#:dispatch dispatch dispatcher?]
                       [#:tcp\@ tcp\@ tcp-unit^ raw:tcp\@]
                       [#:ports ports (listof integer?) (list 80)]
diff --git a/collects/web-server/scribblings/servlet.scrbl b/collects/web-server/scribblings/servlet.scrbl
index ceefac877c..30c1ae1583 100644
--- a/collects/web-server/scribblings/servlet.scrbl
+++ b/collects/web-server/scribblings/servlet.scrbl
@@ -12,7 +12,7 @@ of these servlets. This API is provided by @filepath{servlet.ss}.
 
 @; ------------------------------------------------------------
 @section[#:tag "module-servlets"]{Definition}
-@require[(for-label "dummy-servlet.ss")] ; to give a binding context
+@require[(for-label "dummy-servlet.ss")] @; to give a binding context
 
 @declare-exporting[web-server/scribblings/dummy-servlet]