Bugfix in handle-issue-closed

This commit is contained in:
kagel 2016-09-15 17:39:50 +03:00
parent 88ed27d100
commit 7ffc9741de
2 changed files with 8 additions and 7 deletions

2
.gitignore vendored
View File

@ -5,7 +5,7 @@
pom.xml pom.xml
*.jar *.jar
*.class *.class
/.lein-* /*.lein-*
profiles.clj profiles.clj
/.env /.env
.nrepl-port .nrepl-port

View File

@ -20,11 +20,12 @@
events))) events)))
(defn find-commit-id (defn find-commit-id
[user repo issue-number event-type] [user repo issue-number event-types]
(-> (some identity (map #(->
(github/get-issue-events user repo issue-number) (github/get-issue-events user repo issue-number)
(find-issue-event event-type user) (find-issue-event % user)
(:commit_id))) :commit_id)
event-types)))
(defn handle-issue-labeled (defn handle-issue-labeled
[issue] [issue]
@ -43,7 +44,7 @@
[{{{user :login} :owner repo :name} :repository [{{{user :login} :owner repo :name} :repository
{issue-id :id issue-number :number} :issue}] {issue-id :id issue-number :number} :issue}]
(future (future
(when-let [commit-id (find-commit-id user repo issue-number "referenced")] (when-let [commit-id (find-commit-id user repo issue-number ["referenced" "closed"])]
(log/debug (format "Issue %s/%s/%s closed with commit %s" user repo issue-number commit-id)) (log/debug (format "Issue %s/%s/%s closed with commit %s" user repo issue-number commit-id))
(issues/close commit-id issue-id)))) (issues/close commit-id issue-id))))