refactoring
This commit is contained in:
@@ -79,9 +79,6 @@
|
|||||||
(defn short-url-exists? [url]
|
(defn short-url-exists? [url]
|
||||||
(= 1 (redis :hexists :short-url url)))
|
(= 1 (redis :hexists :short-url url)))
|
||||||
|
|
||||||
(defn get-short-url [noteID]
|
|
||||||
(redis :hget :short-url noteID))
|
|
||||||
|
|
||||||
(defn resolve-url [url]
|
(defn resolve-url [url]
|
||||||
(let [value (redis :hget :short-url url)]
|
(let [value (redis :hget :short-url url)]
|
||||||
(when value ; TODO: necessary?
|
(when value ; TODO: necessary?
|
||||||
|
|||||||
Reference in New Issue
Block a user