|
error! call trace (oldest first): |
|
|
|
┆ <thunk P7MCQ8VF4LKN8: (.git)>/bass/github-hook:51:2..52:51 |
|
50 │ (defn main [] |
|
51 │ (for [event *stdin*] |
|
52 │ (github:check-hook event stub-checkout checks))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ <fs>/streams.bass:44:2..46:62 |
|
43 │ (defop for [bindings & body] scope |
|
44 │ (let [sources (map-pairs (fn [_ src] src) bindings) |
|
45 │ args (map-pairs (fn [arg _] arg) bindings)] |
|
46 │ (eval [each [across & sources] [fn [args] & body]] scope))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ (1 internal call elided) |
|
┆ <fs>/streams.bass:46:4..46:61 |
|
46 │ (eval [each [across & sources] [fn [args] & body]] scope))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ <fs>/streams.bass:22:2..27:26 |
|
21 │ (defn each [source f] |
|
22 │ (let [n (next source :end)] |
|
23 │ (if (= n :end) |
|
24 │ null |
|
25 │ (do |
|
26 │ (f n) |
|
27 │ (each source f))))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ (1 internal call elided) |
|
┆ <fs>/streams.bass:23:4..27:25 |
|
22 │ (let [n (next source :end)] |
|
23 │ (if (= n :end) |
|
24 │ null |
|
25 │ (do |
|
26 │ (f n) |
|
27 │ (each source f))))) |
|
^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ <fs>/streams.bass:25:6..27:24 |
|
24 │ null |
|
25 │ (do |
|
26 │ (f n) |
|
27 │ (each source f))))) |
|
^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ <fs>/streams.bass:26:8..26:13 |
|
26 │ (f n) |
|
^^^^^ |
|
|
|
┆ <thunk P7MCQ8VF4LKN8: (.git)>/bass/github-hook:52:4..52:50 |
|
52 │ (github:check-hook event stub-checkout checks))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ <thunk 8PMIBPN9RNHGI: (.git)>/bass/github.bass:8:4..8:79 |
|
8 │ (eval [check-hook-fn event (:*loop* scope stub-client) clone checks] scope)) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ <thunk 8PMIBPN9RNHGI: (.git)>/bass/github.bass:11:4..66:66 |
|
10 │ (defn check-hook-fn [{:event event :payload payload} client clone checks] |
|
11 │ (case event |
|
12 │ "check_suite" |
|
13 │ (case payload |
|
14 │ {:action "requested" |
|
15 │ :repository {:clone_url clone-url} |
|
16 │ :check_suite {:head_sha sha}} |
|
17 │ (start-checks client sha (checks (clone clone-url sha))) |
|
18 │ |
|
19 │ {:action "rerequested" |
|
20 │ :repository {:clone_url clone-url} |
|
21 │ :check_suite {:head_sha sha}} |
|
22 │ (start-checks client sha (checks (clone clone-url sha))) |
|
23 │ |
|
24 │ _ |
|
25 │ (log "ignoring action" :event event :action payload:action)) |
|
26 │ |
|
27 │ "check_run" |
|
28 │ (case payload |
|
29 │ {:action "rerequested" |
|
30 │ :repository {:clone_url clone-url} |
|
31 │ :check_run {:name name |
|
32 │ :head_sha sha}} |
|
33 │ (let [selector (string->symbol name) |
|
34 │ src (clone clone-url sha) |
|
35 │ thunk (selector (checks src))] |
|
36 │ (client:start-check thunk name sha)) |
|
37 │ |
|
38 │ _ |
|
39 │ (log "ignoring action" :event event :action payload:action)) |
|
40 │ |
|
41 │ "pull_request" |
|
42 │ (case payload |
|
43 │ {:action "opened" |
|
44 │ :pull_request {:head {:sha sha |
|
45 │ :repo {:clone_url clone-url}}}} |
|
46 │ (start-checks client sha (checks (clone clone-url sha))) |
|
47 │ |
|
48 │ {:action "reopened" |
|
49 │ :pull_request {:head {:sha sha |
|
50 │ :repo {:clone_url clone-url}}}} |
|
51 │ (start-checks client sha (checks (clone clone-url sha))) |
|
52 │ |
|
53 │ {:action "synchronize" |
|
54 │ :pull_request {:base {:repo {:clone_url upstream-url}} |
|
55 │ :head {:sha sha |
|
56 │ :repo {:clone_url clone-url}}}} |
|
57 │ (when (not (= upstream-url clone-url)) |
|
58 │ ; only run checks for external PRs, otherwise they're redundant with |
|
59 │ ; the check suites created by pushing |
|
60 │ (start-checks client sha (checks (clone clone-url sha)))) |
|
61 │ |
|
62 │ _ |
|
63 │ (log "ignoring action" :event event :action payload:action)) |
|
64 │ |
|
65 │ _ |
|
66 │ (log "ignoring event" :event event :payload (keys payload)))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ (6 internal calls elided) |
|
┆ <thunk 8PMIBPN9RNHGI: (.git)>/bass/github.bass:13:6..25:68 |
|
12 │ "check_suite" |
|
13 │ (case payload |
|
14 │ {:action "requested" |
|
15 │ :repository {:clone_url clone-url} |
|
16 │ :check_suite {:head_sha sha}} |
|
17 │ (start-checks client sha (checks (clone clone-url sha))) |
|
18 │ |
|
19 │ {:action "rerequested" |
|
20 │ :repository {:clone_url clone-url} |
|
21 │ :check_suite {:head_sha sha}} |
|
22 │ (start-checks client sha (checks (clone clone-url sha))) |
|
23 │ |
|
24 │ _ |
|
25 │ (log "ignoring action" :event event :action payload:action)) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ (6 internal calls elided) |
|
┆ <thunk 8PMIBPN9RNHGI: (.git)>/bass/github.bass:17:8..17:64 |
|
17 │ (start-checks client sha (checks (clone clone-url sha))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ <thunk 8PMIBPN9RNHGI: (.git)>/bass/github.bass:69:4..71:27 |
|
68 │ (defn start-checks [client sha checks] |
|
69 │ (map-pairs |
|
70 │ (fn [name thunk] (client:start-check thunk (str name) sha)) |
|
71 │ (scope->list checks))) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
┆ (15 internal calls elided) |
|
┆ <thunk 8PMIBPN9RNHGI: (.git)>/bass/github.bass:70:23..70:64 |
|
70 │ (fn [name thunk] (client:start-check thunk (str name) sha)) |
|
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
|
|
|
rpc error: code = Unknown desc = llb build failed: resolve args: arg 0: cannot decode <thunk 71UNT1QHGJ2CM: (.go)> (bass.Thunk) into *string |
|
|
|
Tip: if this error is too cryptic, please open an issue: |
|
|
|
https://github.com/vito/bass/issues/new?labels=cryptic&template=cryptic-error-message.md |
|
rpc error: code = Unknown desc = llb build failed: resolve args: arg 0: cannot decode <thunk 71UNT1QHGJ2CM: (.go)> (bass.Thunk) into *string |