suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing error when no email needs to be sent and changing addresses

Browse Source
This commit is contained in:
Jay McCarthy 2010-05-24 09:37:07 -06:00
parent cc162f3eeb
commit 4349df5b6a
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/meta/drdr/analyze.ss
View File

@ -150,15 +150,18 @@
; XXX But even then it can lead to problems ; XXX But even then it can lead to problems
(not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1))))) (not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1)))))
(not (symbol=? id 'changes)))))) (not (symbol=? id 'changes))))))
(unless (andmap zero? nums) (define mail-recipients
(send-mail-message "drdr@plt-scheme.org"
(format "[DrDr] R~a ~a"
cur-rev totals)
(map (curry format "~a@plt-scheme.org")
(append (if include-committer? (append (if include-committer?
(list committer) (list committer)
empty) empty)
responsibles)) responsibles))
(unless (or (andmap zero? nums)
(empty? mail-recipients))
(send-mail-message "drdr@racket-lang.org"
(format "[DrDr] R~a ~a"
cur-rev totals)
(map (curry format "~a@racket-lang.org")
mail-recipients)
empty empty empty empty
(flatten (flatten
(list (format "DrDr has finished building push #~a after ~a." (list (format "DrDr has finished building push #~a after ~a."