 (defn info-ks [] (-> @exp-info first second keys))
 
 (defn get-exp-info [eid & ks]
-  (let [otks #{:bams :fcnts :maps :fit :aggrs :charts}
+  (let [otks #{:bams :star :fcnts :maps :fit :aggrs :charts}
         rep? (coll/in :rep ks)
         ks (remove #{:rep} (filter identity ks)) ; remove any :rep or nil
         info (get-exp eid)

  get-comparison-files
  (fn[exptype & args] exptype))

;;;(ns-unmap 'aerobio.htseq.common 'run-phase-2)
(defmulti
  ^{:doc "Each experiment type has its own phase 2 driver, and this

  (let [exp (get-exp-info eid :exp)]
    (cond
      (#{"phase-0" "phase-0b" "phase-0c" "phase-0d"
         "phase-1" "bt2-phase-1" "bt1-phase-1" "star-phase-1"
         "phase-2" "phase-2b"
         "phase-2-rnaseq" "phase-2-termseq"
         "phase-2-5NTap" "phase-2-5PTap"} action)
