Added a static file dispatcher for robots.txt

tomoyuki28jp · Aug 6, 2009 · 2f7001a · 2f7001a
1 parent c76301e
commit 2f7001a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/server.lisp b/src/server.lisp
@@ -77,6 +77,10 @@
              ("/js/"     . ,(merge-pathnames "js/"     *public-dir*))))
   (push (create-folder-dispatcher-and-handler (car x) (cdr x)) *dispatch-table*))
 
+(push (create-static-file-dispatcher-and-handler
+       "/robots.txt" (merge-pathnames "robots.txt" *public-dir*))
+      *dispatch-table*)
+
 ; default page
 (setf *default-handler*
       #'(lambda ()