From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 26 Nov 2021 22:33:09 +0000 (-0500)
Subject: Add cache expiration TODO
X-Git-Tag: 0.27.1~6
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=4a23fd9956d4ce4725164247f7736da19b07bea0;p=tt.git

Add cache expiration TODO
---

diff --git a/tt.rkt b/tt.rkt
index 19397e2..0a1e6fd 100644
--- a/tt.rkt
+++ b/tt.rkt
@@ -566,6 +566,7 @@
   (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)
       '()))
@@ -642,6 +643,7 @@
 
 (: 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))