This repository was archived by the owner on Jun 15, 2024. It is now read-only.
File tree Expand file tree Collapse file tree 1 file changed +7
-8
lines changed
src/clj/lambdacd/presentation Expand file tree Collapse file tree 1 file changed +7
-8
lines changed Original file line number Diff line number Diff line change 1
1
(ns lambdacd.presentation.pipeline-state
2
- (:require [lambdacd.util :as util]
3
- [lambdacd.internal.pipeline-state :as pipeline-state]
2
+ (:require [lambdacd.internal.pipeline-state :as pipeline-state]
4
3
[clj-time.core :as t]
5
4
[clojure.tools.logging :as log]
6
5
[clj-timeframes.core :as tf]
45
44
46
45
(defn earliest-first-update [step-ids-and-results]
47
46
(->> (vals step-ids-and-results)
48
- (filter not-retriggered?)
49
- (first-with-key-ordered-by asc :first-updated-at )))
47
+ (filter not-retriggered?)
48
+ (first-with-key-ordered-by asc :first-updated-at )))
50
49
51
50
(defn latest-most-recent-update [step-ids-and-results]
52
51
(first-with-key-ordered-by desc :most-recent-update-at (vals step-ids-and-results)))
91
90
92
91
93
92
(defn most-recent-step-result-with [key ctx]
94
- (let [state (pipeline-state/get-all (:pipeline-state-component ctx))
95
- step-id (:step-id ctx)
96
- step-results (map second (reverse (sort-by first (seq state))))
97
- step-results-for-id (map #(get % step-id) step-results)
93
+ (let [state (pipeline-state/get-all (:pipeline-state-component ctx))
94
+ step-id (:step-id ctx)
95
+ step-results (map second (reverse (sort-by first (seq state))))
96
+ step-results-for-id (map #(get % step-id) step-results)
98
97
step-results-with-key (filter key step-results-for-id)]
99
98
(first step-results-with-key)))
You can’t perform that action at this time.
0 commit comments