 (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}))

       (rr/content-type
        (rr/response (lfpr-caste caste))
        content-type))

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

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

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

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


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

