               (dissoc thing :id :version :location :requirements)
               (into thing {:dependees (map handle v)}))]) grph)
     (into {} grph)))
-
-(defn resolve-dependencies
-  [requirements
-   query & options]
-  (let [r (resolve-dependencies-deluxe requirements query options)]
-    (if (= (:result r) :successful)
-           [:successful (:packages r)]
-           [(:result r) r])))
 
 (defn resolve-dependencies-deluxe
   [requirements

               (second result)
               :list-strat :lazy
               :exclude (reduce (fn [c [k v]] (into c v))
                                #{})
                               present-packages))
           (list-packages
             (second result)
             :list-strat list-strat))
         :install-graph
         (make-install-graph (second result))
         }
        (into {:result (first result)} (second result))))))

       #(get % 1)
       clause-result))])))))))

(defn make-install-graph
  [package-graph handle]
  (as-> package-graph grph
    (map (fn [[k v]]
           [(handle k)
