SHOW:
|
|
- or go back to the newest paste.
| 1 | (defresource user [u] | |
| 2 | :available-media-types ["text/html"] | |
| 3 | :handle-ok (fn [_] (format "User info: %s" u))) | |
| 4 | ||
| 5 | (defroutes app | |
| 6 | (ANY "/user/:u" [u] | |
| 7 | :allowed-methods [:get :post] | |
| 8 | :handle-ok (fn [_] (user u)) | |
| 9 | :post! (fn [_] (format "called post with %s" u)))) |
