diff --git a/pollen-server-extras/error.css b/pollen-server-extras/error.css new file mode 100644 index 0000000..35e86cb --- /dev/null +++ b/pollen-server-extras/error.css @@ -0,0 +1,39 @@ +* { + margin: 0; + padding: 0; +} + +body { + padding: 1em; + font-family: "Source Code Pro"; +} + + +.section { + border: 1px solid black; +} + +.title { + background-color: #dfd; +} + +.section > p { + margin-left: 5px; + margin-right: 5px; +} + +.section > pre { + font-family: "Source Code Pro"; + + white-space: pre-wrap; /* css-3 */ + + background-color: #efe; + margin-left: 5px; + margin-right: 5px; + padding: 5px; +} + +.error { + color: red; + font-size: large; +} \ No newline at end of file diff --git a/server-routes.rkt b/server-routes.rkt index 8c5d12c..29e8349 100644 --- a/server-routes.rkt +++ b/server-routes.rkt @@ -210,15 +210,16 @@ (next-dispatcher)) -;; error route +;; 404 route (define/contract (route-404 req) (request? . -> . response?) - (define error-text (format "Can't find ~a" (->string (req->path req)))) + (define error-text (format "route-404: Can't find ~a" (->string (req->path req)))) (message error-text) ;`(html ,(slurp (build-path SERVER_EXTRAS_DIR "404.html"))) (response/xexpr `(html ,error-text))) + ;; server route that returns xexpr (before conversion to html) (define/contract (xexpr path) (complete-path? . -> . xexpr?)