(use spiffy intarweb uri-common)

(vhost-map
 `((".*" .
    ,(lambda (continue)
       (let ((req (current-request)))
	 (parameterize ((current-request
			 (update-request req
					 uri: (update-uri (request-uri req)
							  path: '(/)))))
	   (continue)))))))

(start-server)