#lang scheme/base
(require (for-syntax scheme/base)
scheme/contract
scheme/runtime-path)
(define-runtime-path default-mime-types-path
"mime.types")
(define default-servlet-name
"servlet.ss")
(define default-servlet-path
(build-path (current-directory) default-servlet-name))
(define default-htdocs-name
"htdocs")
(define default-htdocs-paths
(list (build-path (current-directory) default-htdocs-name)))
(define default-servlet-namespace
null)
(provide/contract
[default-mime-types-path (and/c path? absolute-path?)]
[default-servlet-name string?]
[default-servlet-path (and/c path? absolute-path?)]
[default-htdocs-name string?]
[default-htdocs-paths (listof (and/c path? absolute-path?))]
[default-servlet-namespace list?])