gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

refactor

Browse source
This commit is contained in:
Gered 2013-05-21 22:40:23 -04:00
parent f70e17a653
commit eece264d27
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/blarg/models/posts.clj
View file

@ -65,9 +65,7 @@
(update-post id nil nil nil nil publish? reset-date?)) (update-post id nil nil nil nil publish? reset-date?))
(defn list-tags [] (defn list-tags []
(map (->view-keys
(fn [x]
(:key x))
(couch/with-db posts (couch/with-db posts
(couch/get-view "posts" "listTags" {:group true})))) (couch/get-view "posts" "listTags" {:group true}))))