 (defn extract-metadata
   [promise]
   (let [results @promise]
-    (log/debug "Got results from CMR granule search:" results)
+    (log/trace "Got results from CMR granule search:" results)
     (get-in results [:feed :entry])))
 
 (defn get-metadata

  [params]
  (let [coll-id (:collection-id params)
        gran-ids (util/remove-empty (:granules params))
        exclude? (:exclude-granules params)]
    (str "collection_concept_id=" coll-id
         (when (seq gran-ids)
          (str "&"
               (if exclude?
                 (build-exclude gran-ids)
                 (build-include gran-ids)))))))

(defn async-get-metadata
  "Given a data structure with :collection-id, :granules, and :exclude-granules

  (let [url (str search-endpoint
                 "/granules?"
                 (build-query params))]
    (log/debug "Granules query to CMR:" url)
    (request/async-get
     url
     (-> {}
