From 18276161b857e362aa214fe6c826eebf38a5a7c0 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 30 Mar 2010 15:26:08 +0000 Subject: [PATCH] - Limiting the size of DrDr emails svn: r18670 --- collects/meta/drdr/analyze.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/meta/drdr/analyze.ss b/collects/meta/drdr/analyze.ss index 4c7c6d99d2..25ea753910 100644 --- a/collects/meta/drdr/analyze.ss +++ b/collects/meta/drdr/analyze.ss @@ -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))) "")) ""))))))