From 4a23fd9956d4ce4725164247f7736da19b07bea0 Mon Sep 17 00:00:00 2001
From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 26 Nov 2021 17:33:09 -0500
Subject: [PATCH] Add cache expiration TODO

---
 tt.rkt | 2 ++
 1 file changed, 2 insertions(+)

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))
-- 
2.20.1