summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bin/serve.fnl10
1 files changed, 8 insertions, 2 deletions
diff --git a/bin/serve.fnl b/bin/serve.fnl
index 669c3e0..c7bc334 100644
--- a/bin/serve.fnl
+++ b/bin/serve.fnl
@@ -176,10 +176,16 @@
[]))))
(fn shops-count []
- (# (must (luna.db.query db "SELECT DISTINCT site FROM products" []))))
+ (# (must (luna.db.query db
+ "SELECT DISTINCT site
+ FROM products
+ WHERE archived = false" []))))
(fn products-count []
- (. (must (luna.db.query db "SELECT DISTINCT COUNT(url) FROM products" []))
+ (. (must (luna.db.query db
+ "SELECT DISTINCT COUNT(url)
+ FROM products
+ WHERE archived = false" []))
1 1))
(fn latest-update-date []