         job-names (keys runtimes-by-day)]
 
     (http/respond-with-csv (csv/export-table (cons "date" job-names)
-                                        (->> (merge-runtimes runtimes-by-day)
-                                             (runtimes-as-table job-names)
-                                             (sort-by first))))))
+                                             (->> (merge-runtimes runtimes-by-day)
+                                                  (runtimes-as-table job-names)
+                                                  (sort-by first))))))
 
 ;; fail phases
 


(defn- remap-date-first [[job runtimes-by-day]]
  (map (fn [[day avg-runtime]]
              [day {job avg-runtime}])
            runtimes-by-day))

(defn- merge-runtimes [all-runtimes-by-day]
  (->> (mapcat remap-date-first all-runtimes-by-day)

(defn- failures-for [build-results job-name]
  (when-some [test-results (results/chronological-tests build-results job-name)]
    (when-some [failed-tests (seq (testsuites/accumulate-testsuite-failures
                                   (map junit-xml/parse-testsuites test-results)))]
      (let [build-data-entries (results/builds build-results job-name)]
        {job-name (merge {:children failed-tests}
                         (failed-count-for build-data-entries))}))))

(defn- failures-as-list [build-results job-name]
  (when-some [test-results (results/chronological-tests build-results job-name)]
