updates to error handling

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;
+}

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