This commit is contained in:
Jay McCarthy 2011-08-08 12:39:04 -06:00
parent 756e86c9a7
commit 26ddc5273f

View File

@ -198,7 +198,9 @@
(list (format " ~a" id)
(for/list ([f (in-list paths)]
[i (in-range ERROR-LIMIT)]
#:when (not (path-random? f)))
#:when (not (path-random?
(build-path (revision-trunk-dir cur-rev)
(substring (path->string* f) 1)))))
(format " ~a" (path->url f)))
""))))
"")