refactoring

This commit is contained in:
Christian Mueller
2014-02-01 21:16:10 +01:00
parent 97529f489b
commit 460db4185a
-3
View File
@@ -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?