From 359790c402d2731b7dd1df8a629726e69922a035 Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Thu, 17 Oct 2024 14:32:27 +0600
Subject: cache fixes for spelling mistakes

---
 lib/cache.fnl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/cache.fnl b/lib/cache.fnl
index 8cf7323..76ede13 100644
--- a/lib/cache.fnl
+++ b/lib/cache.fnl
@@ -21,4 +21,11 @@
                            [(.. prefix "%")]))
     (must (luna.db.exec-tx tx "DELETE FROM cache" []))))
 
-{: get :set _set : clear-tx}
+(fn wrap [db key f]
+ (local cached (get db key))
+ (if cached
+   cached
+   (let [res (f)]
+     (if res (_set db key res) nil))))
+
+{: get :set _set : clear-tx : wrap}
-- 
cgit v1.2.3