minor refactoring
This commit is contained in:
@@ -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))
|
||||||
|
|||||||
Reference in New Issue
Block a user