minor refactoring

This commit is contained in:
Christian Müller
2014-10-07 20:57:44 +02:00
parent d98db11a8c
commit 4b7b9d8ad6
+1 -1
View File
@@ -61,7 +61,7 @@
(defn valid-password? [noteID passwd] (defn valid-password? [noteID passwd]
(let [stored (redis :hget :password noteID)] (let [stored (redis :hget :password noteID)]
(and (not (= 0 stored)) (= stored passwd)))) (and (not= 0 stored) (= stored passwd))))
(defn get-note-views [noteID] (defn get-note-views [noteID]
(redis :hget :views noteID)) (redis :hget :views noteID))