Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns cargolds.core
- (:require [liberator.core :refer [resource defresource]]
- [ring.middleware.params :refer [wrap-params]]
- [compojure.core :refer [defroutes ANY]]))
- ;; define a simple parameterized resource
- (defresource user [u]
- :available-media-types ["text/html"]
- :handle-ok (fn [_] (format "User info: %s" u)))
- ;; set up routes to our resources
- (defroutes app
- (ANY "/user/:u" [u]
- :allowed-methods [:get :post]
- :handle-ok (fn [_] (user u))
- :post! (fn [_] (format "called post with %s" u))))
- (def handler
- (-> app wrap-params))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement