Guest User

Untitled

a guest
May 27th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. (ns attendance.core
  2. (:use karras.core
  3. karras.collection
  4. karras.sugar
  5. compojure.core
  6. ring.adapter.jetty
  7. hiccup.core)
  8. (:require [compojure.route :as route]))
  9.  
  10. (defn home []
  11. (html
  12. [:h1 "content-changed"]
  13. [:p "paragraph inside content also changed"]))
  14.  
  15. (defroutes main-routes
  16. (GET "/" [] (home))
  17. (route/not-found "<h1>Page not found</h1>"))
  18.  
  19.  
  20. (defonce server (run-jetty (var main-routes) {:port 8080 :join? false}))
Add Comment
Please, Sign In to add comment