 
 (defn disable
   "Disables an algorithm in the system"
-  [^String algorithm]
+  [algorithm]
   (->> algorithm
        (event/destroy-exchange)
        (event/destroy-queue)))


(defn get-algorithm
  "Returns an algorithm if defined in the system."
  [^String algorithm-name]
  (log/debugf "get-algorithm: %s..." algorithm-name)
  (let [result (get-conf algorithm-name)]
    (if result
      {:status 200 :body result}
      {:status 404 :body (str algorithm-name " not found.")})))

(defn put-algorithm
  "Updates or creates an algorithm definition"

(defn inputs
  "Construct url to retrieve tiles for algorithm input"
  [{:keys [x y algorithm] :as data}]
  (let [conf  (get-conf algorithm)
        now   (tc/to-string (time/now))]
    (template/render (:inputs_url_template conf) (merge data {:now now}))))

