     [(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

      (import-record record)

      (report-progress? record-type)
      (inc-and-update-progress record-type))))

(defn import-data
  "Reads the contents from the specified input and saves

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

(defmethod import-record :account
  [context account]
