minor improvements

This commit is contained in:
Christian Mueller
2014-03-31 11:26:59 +02:00
parent 6e923b907b
commit 31763becb5
+3 -2
View File
@@ -141,6 +141,7 @@
unpopular-notes (filter #(< (try (Long/parseLong (redis :hget :views %))
(catch Exception a 0)) N) old-notes)]
(println "timestamp:" (str (java.util.Date. timestamp)))
(println (count unpopular-notes) "deleted")
(doseq [note-id unpopular-notes]
(delete-note note-id)))))
(do (println "deleting" note-id)
(delete-note note-id)))
(println (count unpopular-notes) "deleted"))))