   (GET "/deca" [] (rr/content-type
                    (rr/response  (db/get-deca))
                    "application/json; charset=utf-8"))
+  (GET "/deca1" [] (rr/content-type
+                    (rr/response  (db/get-deca1))
+                    "application/json; charset=utf-8"))
+
   (GET "/all" [] (rr/content-type
                   (rr/response {:lfp (db/get-lfp)
                                 :wp (db/get-wp)

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


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