do not lock writes to db while running "./run.sh fetch"

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/cache.fnl b/lib/cache.fnl
index 76ede13..fdde74c 100644
--- a/lib/cache.fnl
+++ b/lib/cache.fnl
@@ -15,11 +15,11 @@
                       [key value]))
   value)
 
-(fn clear-tx [tx prefix]
+(fn clear [db prefix]
   (if (= "string" (type prefix))
-    (must (luna.db.exec-tx tx "DELETE FROM cache WHERE key LIKE ?"
+    (must (luna.db.exec db "DELETE FROM cache WHERE key LIKE ?"
                            [(.. prefix "%")]))
-    (must (luna.db.exec-tx tx "DELETE FROM cache" []))))
+    (must (luna.db.exec db"DELETE FROM cache" []))))
 
 (fn wrap [db key f]
  (local cached (get db key))
@@ -28,4 +28,4 @@
    (let [res (f)]
      (if res (_set db key res) nil))))
 
-{: get :set _set : clear-tx : wrap}
+{:get get :set _set :clear clear :wrap wrap}