 (defn -main
   "I don't do a whole lot ... yet."
   [& args]
-  (jetty/run-jetty app {:port 8080
+  (jetty/run-jetty app {:port 8091
                         :join? false}))

(defn lfpr-caste [tstring]
  (db/get-lfpr-by-caste {:caste tstring}))

(defn lfpr-caste-type [t1string t2String ]
  (db/get-lfpr-by-casteandtype {:caste t1string :type t2String}))


       (rr/content-type
        (rr/response (lfpr-caste caste))
        content-type))
  (GET "/wpr/caste/:caste" [caste]
       (rr/content-type
        (rr/response (wpr-caste caste))
        content-type))

  (GET "/umr/caste/:caste" [caste]
       (rr/content-type
        (rr/response (umr-caste caste))
        content-type))

  (GET "/total/caste/:caste" [caste] (rr/content-type
                                      (rr/response {:lfpr (lfpr-caste caste)
                                                    :wpr (wpr-caste caste)
                                                    :umr (umr-caste caste)})
                                      "application/json; charset=utf-8"))

  (GET "/lfpr/caste/:caste/:type" [caste type]
       (rr/content-type
