1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/usr/bin/env escript
%%! -pa jsx/_build/default/lib/jsx/ebin/
-mode(compile).
main([Repo, HeadSha]) ->
io:format("Looking for: ~ts",[HeadSha]),
AllOpenPrs = ghapi("gh api --paginate -X GET /repos/"++Repo++"/pulls -f state=open"),
case lists:search(
fun(#{ <<"number">> := NR, <<"head">> := #{ <<"sha">> := Sha }}) ->
io:format("~p: Checking ~ts~n",[NR, Sha]),
string:equal(HeadSha, Sha)
end, AllOpenPrs) of
{value, #{ <<"number">> := Number } } ->
io:format("::set-output name=result::~p~n", [Number]);
false ->
io:format("::set-output name=result::~ts~n", [""])
end.
ghapi(CMD) ->
Data = cmd(CMD),
try jsx:decode(Data, [{return_maps,true}])
catch E:R:ST ->
io:format("Failed to decode: ~ts",[Data]),
erlang:raise(E,R,ST)
end.
cmd(CMD) ->
ListCmd = unicode:characters_to_list(CMD),
io:format("cmd: ~ts~n",[ListCmd]),
unicode:characters_to_binary(os:cmd(ListCmd)).
|
