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

- Limiting the size of DrDr emails

Browse Source 
svn: r18670
This commit is contained in:
Jay McCarthy 2010-03-30 15:26:08 +00:00
parent 047794b11a
commit 18276161b8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -107,6 +107,7 @@
[responsible-ht-id->str (hash/c symbol? string?)]
[responsible-ht-difference (responsible-ht/c responsible-ht/c . -> . responsible-ht/c)])
(define ERROR-LIMIT 50)
(define (notify cur-rev
start end
duration
@ -174,7 +175,8 @@
(if (empty? paths)
empty
(list (format "\t~a" id)
(for/list ([f (in-list paths)])
(for/list ([f (in-list paths)]
[i (in-range ERROR-LIMIT)])
(format "\t\t~a" (path->url f)))
""))))
"")
@ -185,7 +187,8 @@
(for/list ([(id files) (in-hash (hash-ref responsible-ht r))]
#:when (not (symbol=? id 'changes)))
(list (format "\t~a:" id)
(for/list ([f (in-list files)])
(for/list ([f (in-list files)]
[i (in-range ERROR-LIMIT)])
(format "\t\t~a" (path->url f)))
""))
""))))))