Guest User

Untitled

a guest
Oct 31st, 2017
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; illustration of routes mechanics in ring/compojure
  2.  
  3. (ns routes-example.core
  4.   (:use
  5.      [ring.adapter.jetty :only [run-jetty]]
  6.      [compojure.core]
  7.      ; ...
  8.      ))
  9.  
  10. (def adminreq {:request-method :get :uri "/admin"})
  11. (def userreq {:request-method :get :uri "/user"})
  12.  
  13. (def adminhandler (GET "/admin" [] "admin area"))
  14. (def userhandler (GET "/user" [] "user area"))
  15.  
  16. (def adminanduserhandler
  17.   (routes
  18.     (def adminhandler (GET "/admin" [] "admin area"))
  19.     (def userhandler (GET "/user" [] "user area"))
  20.     ))
  21.  
  22. (def badhandler
  23.   (routes
  24.     (def adminhandler (GET "/admin" [] "admin area"))
  25.     (def userhandler (GET "/admin" [] "user area"))
  26.     ))
  27.  
  28. (adminhandler adminreq)
  29. (adminhandler userreq)
  30.  
  31. (adminanduserhandler adminreq)
  32. (adminanduserhandler userreq)
  33.  
  34. (badhandler adminreq)
Add Comment
Please, Sign In to add comment