   (let [pipelineGroups (get-json "/api/config/pipeline_groups")
         pipelineGroup (first (filter #(= pipelineGroupName (:name %)) pipelineGroups))
         pipelines (:pipelines pipelineGroup)]
-    (apply concat
-           (map stages-for-pipeline pipelines))))
+    (mapcat stages-for-pipeline pipelines)))
 
 
 ;; upload

  (->> (concat (stages-for-pipeline-group "Development")
               (stages-for-pipeline-group "Verification")
               (stages-for-pipeline-group "Production"))
       (map job-instances-for-stage)
       (apply concat)
       (map augment-job-with-inputs)
       (map job-data-for-instance)))



;; /jobStatus.json

(defn parse-build-info [json-response]
  (let [buildInfo (:building_info (first json-response))
        buildStartTime (tc/to-long (tf/parse (:build_building_date buildInfo)))
        buildEndTime (tc/to-long (tf/parse (:build_completed_date buildInfo)))
        result (:result buildInfo)
