From 65de2410a37dd1463ab7c1a21d7bb0017090a01b Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Tue, 21 May 2013 19:26:18 -0400
Subject: [PATCH] only serve published files

---
 src/blarg/models/files.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/blarg/models/files.clj b/src/blarg/models/files.clj
index 6973e95..8c56887 100644
--- a/src/blarg/models/files.clj
+++ b/src/blarg/models/files.clj
@@ -6,7 +6,7 @@
 (defn get-file [file]
   (couch/with-db files
     (if-let [file-info (->first-view-value
-                         (couch/get-view "files" "listAll" {:key file}))]
+                         (couch/get-view "files" "listPublished" {:key file}))]
       (let [id         (:_id file-info)
             attachment (:filename file-info)
             attachment-info (second (first (:_attachments file-info)))