         :suggestions
         suggestions})]))
 
-
-
 (defn merge-failure-records
-  "Merge two different resolution failure records.
-   Merge using ``(merge-with into ...)`` for everything but suggestions;
-   within the suggestions, merge using ``(merge-with set/intersection ...)``."
+  "
+  Merge two different resolution failure records.
+  Merge using ``(merge-with into ...)`` for everything but suggestions;
+  within the suggestions, merge using ``(merge-with set/intersection ...)``.
+  "
   [a b]
   (let [base-answer (merge-with
                       into

      pkg-list)))

(defn vet-candidate
  "Takes a candidate package which has been chosen in hopes of fulfilling a
  requirement and ensures that:
  1) It does not violate any 'ensure absent' specifications and
  2) It fulfills the particular 'ensure present' spec."
  [id-absent-specs safe-spec-call spec candidate]
  (and
    (safe-spec-call spec candidate)

      id-absent-specs)))

(defn seek-package
  "
  Seek a package from a repository meeting the specs given.
  "
  [query-results vet]
    (if (empty? query-results)
      [:unsuccessful
