     [(map #(io/input-stream (byte-array (:body %))) images)
      source-type]))
 
-(defn- update-progress
+(defn- notify-progress
   [{:keys [progress-chan progress] :as context}]
   ; this will block until the item is taken off the channel
   ; in the future we may want more flexibility than that, but

  (>!! progress-chan progress)
  context)

(defn- inc-and-update-progress
  [context record-type]
  (-> context
      (update-in [:progress record-type :imported]
                 (fnil inc 0))
      update-progress))

(defmulti import-record
  (fn [_ record]

  [context {:keys [record-type record-count]}]
  (-> context
      (assoc-in [:progress record-type :total] record-count)
      notify-progress))

(defmethod import-record :account
  [context account]
