diff --git a/src/blarg/models/posts.clj b/src/blarg/models/posts.clj index f4e3631..b70351f 100644 --- a/src/blarg/models/posts.clj +++ b/src/blarg/models/posts.clj @@ -65,9 +65,7 @@ (update-post id nil nil nil nil publish? reset-date?)) (defn list-tags [] - (map - (fn [x] - (:key x)) + (->view-keys (couch/with-db posts (couch/get-view "posts" "listTags" {:group true}))))