Mercurial > laserkard

view server.clj @ 69:dd97a10c782e laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added access.log and error.log to switch to lighttpd.
author Robert McIntyre <rlm@mit.edu>
date Tue, 22 Jun 2010 13:37:30 -0400
parents
children 751fb9fd445b
line wrap: on
line source
     1 (ns laserkard.server



     2   (:use compojure.core



     3 	ring.adapter.jetty)



     4   (:require [compojure.route :as route]))



     5 



     6 (defroutes example



     7   (GET "/index.clj" [] "<h1>Hello World Wide Web!</h1>")



     8   (route/not-found "Page not found"))



     9 



    10 (defn serve []



    11   (run-jetty example {:port 9000}))



    12 



    13 



    14 



    15