     ;; When repairing a production we already have a library
     ;; signature, so no need to ask the library for another one; go
     ;; directly to archiving
-;;    (transaction)
     (as-> production p
       (set-state! p "cataloged")
       (>!! queues/archive p))

          :bitrate bitrate})))

(defn set-state-cataloged! [production]
;;  (transaction)
  (as-> production p
    (set-state! p "cataloged")
    (>!! queues/archive p)))

    new-production))

(defn set-state-split! [production volumes sample-rate bitrate]
  (as-> production p
    (assoc p :volumes volumes)
    (set-state! p "split")
