defaults.ss
#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 statements -----------------------------

(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?])