   [builds build-ids]
   (let [builds (map-to-vec-builds builds)
         ;; ensure string ids
-        builds (map #(update-in % [:id] name) builds)]
+        builds (map #(update % :id name) builds)]
     (vec
      (keep identity
            (if-not (empty? build-ids)
              (keep (fn [bid] (first (filter #(= bid (:id %)) builds))) build-ids)
              [(first (filter optimizations-none? builds))])))))
-
-;; we are only going to work on one build
-;; still need to narrow this to optimizations none
-(defn narrow-builds
-  "Filters builds to the chosen build-id or if no build id specified returns the first
-   build with optimizations set to none."
-  [project build-ids]
-  (update-in project [:cljsbuild :builds] narrow-builds* build-ids))
 
 (defn check-for-valid-options
   "Check for various configuration anomalies."


(defn prep-build [build]
  (-> build
      (dissoc :warning-handlers)
      ensure-id
      move-compiler-to-build-options
      (update-in [:build-options] fix-build-options)
      prep-build-for-figwheel-client
      forward-devcard-option
      ensure-output-dirs!
      no-seqs
      (vary-meta assoc ::prepped true)))

(defn prepped? [build]

    (assoc-in build [:build-options :devcards] true)
    build))

(defn forward-to-figwheel-build-id
  "Given a build config that has a :figwheel config in it "
  [{:keys [id figwheel] :as build}]
  (if (and figwheel id)
    (update build :figwheel
            (fn [x] (assoc (if (map? x) x {})
                          :build-id id)))
    build))

(defn figwheel-build? [{:keys [build-options] :as build}]
