                              (map #(fs/join base %)))]
     (into {}
           (map (fn[exp-dir ibc]
-                 [ibc (get-exp-file-specs
-                       eid exp-illumina-xref exp-dir ibc ftype)])
+                 [ibc (get-exp-file-specs exp-illumina-xref exp-dir ibc ftype)])
                exp-sample-dirs
                ibcs))))
 

              secmap (zipmap ks sections)
              secmap (if (not= exp :termseq)
                       secmap
                       (assoc secmap :run-xref
                              (mapv #(coll/takev 3 %) (secmap :run-xref))))]
          secmap)
        (let [s (coll/dropv-until (fn[v] (str/digits? (first v))) S)
              i (coll/takev-until (fn[v] (not (str/digits? (first v)))) s)

        red1codes (get-exp-info eid :red1codes)
        [qc-ctpt _] (fil/qcscore-min-entropy baseqc% 0.9 10)
        bc-file-specs (get-bc-file-specs
                       base exp-illumina-xref illumina-sample-xref)
        ifastqs (fs/directory-files (get-exp-info eid :fastq) "fastq.gz")
        sample-illumina-xref (clojure.set/map-invert illumina-sample-xref)
        sample-ifq-xref (reduce (fn[M fq]
