                           :else (< a b))) priced-coll))
 (defn- add-indexes
   [coll]
-  (map-indexed (fn [i e]
-                 (log/info "e = " e)
-                 (assoc e :index i)) coll))
+  (map-indexed (fn [i e] (assoc e :index i)) coll))
 
 (defn price-component
   [user-connectors service-offers component]


(defn- place-rank-component
  [user-connectors component]
  (log/info "component is: " component)
  (let [filtered-service-offers (service-offers-by-component-policy user-connectors component)]
    (log/info "filtered-service-offers = " (map :id filtered-service-offers))
    (log/info "user-connectors = " user-connectors)
    (price-component user-connectors filtered-service-offers component)))

(defn place-and-rank
  [request]
  (log/info "Calling place-and-rank")
  (let [components (:components request)
        user-connectors (:user-connectors request)]
    {:components (map (partial place-rank-component user-connectors) components)}))

    [sixsq.slipstream.client.api.cimi :as cimi]
    [clojure.string :as string]))

(def no-price -1)

(defn string-or-nil?
