(use spiffy intarweb uri-common)

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

(start-server)