(match-define (Peer nick uri _) peer)
(log-debug "Reading peer nick:~v uri:~v" nick (url->string uri))
(define msgs-data (uri-read-cached uri))
+ ; TODO Expire cache
(if msgs-data
(str->msgs nick uri msgs-data)
'()))
(: mentioned-peers-in-cache (-> (Listof Peer)))
(define (mentioned-peers-in-cache)
+ ; TODO Expire cache
(define msgs
(append* (map (λ (filename)
(define path (build-path cache-object-dir filename))
(filter
(λ (p) (< 0 (length (peer->msgs p))))
peers-all)])
+ ; TODO Deeper de-duping
(log-info "Known peers mentioned: ~a" (length peers-mentioned))
(log-info "Known peers parsed ~a" (length peers-parsed))
(log-info "Known peers total: ~a" (length peers-all))