From eece264d27fd7c92e50758a9393d94661ca48817 Mon Sep 17 00:00:00 2001 From: gered Date: Tue, 21 May 2013 22:40:23 -0400 Subject: [PATCH] refactor --- src/blarg/models/posts.clj | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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}))))