Browse files

Fix imagetags dupes problem

  • Loading branch information...
1 parent 013c097 commit ed125ae9676b23d404f9c59ee482fea3c34c82b4 @timmc committed Mar 4, 2012
Showing with 1 addition and 3 deletions.
  1. +1 −0 clj/src/kpawebgen/munge.clj
  2. +0 −3 clj/src/kpawebgen/spit.clj
@@ -240,6 +240,7 @@ new table named by 'merged' will be added."
(-> db
(dissoc :taghierarchy :metadata :changelog)
(update-in [:tagstoimages] add-implicit-tags supers-by-cat)
+ (update-in [:tagstoimages] set)
(filter-private-images conf)
;; TODO: remove orphaned tags
;; tag filtering comes after image filtering in case a private tag
@@ -61,9 +61,6 @@ data structures and photo store."
"Write website data out to disk and generate all files.
Does not yet optimize based on diff to last localweb generation."
[config db]
- {:pre [(= (count (:imagetags db))
- (count (clojure.set/project (set (:imagetags db))
- [:imageID :catID :tagID])))]}
(let [db-f (ensure-blank-db config)]
(write-db db db-f)
(println "Tables:" (into {} (for [[tn tbl] db] [tn (keys (first tbl))])))))

0 comments on commit ed125ae

Please sign in to comment.