Guile Freenet
 
(drak)
2016-03-30: add commented-out example for crawling one seed notabug/master tip master

add commented-out example for crawling one seed

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -222,6 +222,7 @@
     (let ((seed (if (string-index seed-id #\/)
                     seed-id
                     (string-append "USK" (string-drop seed-id 3) "/WebOfTrust/-1")))) ; -1 can also return 0
-      ;; (write (download-by-date-hint seed))
+      ;; (crawl-wot seed))))
+      ;; (write (download-by-date-hint seed)))))
       (par-map download-by-date-hint
                (crawl-wot seed)))))