crappyrules/notehub
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

response implemented

Browse Source
This commit is contained in:
Christian Mueller
2014-01-29 20:18:32 +01:00
parent 76afc00b14
commit 2164ae1a60
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/NoteHub/handler.clj
+4 -3
View File
@@ -77,9 +77,10 @@
"Sets a custom message for each needed HTTP status. "Sets a custom message for each needed HTTP status.
The message to be assigned is extracted with a dynamically generated key" The message to be assigned is extracted with a dynamically generated key"
[code] [code]
(let [message (get-message (keyword (str "status-" code)))] {:status code
:body (let [message (get-message (keyword (str "status-" code)))]
(layout message (layout message
[:article [:h1 message]]))) [:article [:h1 message]]))})
(defn redirect [url] (defn redirect [url]
{:status 302 {:status 302
@@ -205,7 +206,7 @@
(response 500)))) (response 500))))
(route/resources "/") (route/resources "/")
(route/not-found "Not Found")) (route/not-found (response 404)))
(def app (def app
(handler/site app-routes)) (handler/site app-routes))