fixed, get would fail when key doesn't exist

Former-commit-id: 83ab6ad3ef
This commit is contained in:
michaelr 2016-03-17 21:32:59 +02:00
parent 85f7a08380
commit b27e47a91f
2 changed files with 6 additions and 6 deletions

View File

@ -55,7 +55,7 @@
(-> (aget result 0))) (-> (aget result 0)))
(defn single-cljs [result] (defn single-cljs [result]
(-> (aget result 0) (some-> (aget result 0)
(js->clj :keywordize-keys true))) (js->clj :keywordize-keys true)))
(defn decode-value [{:keys [key value]}] (defn decode-value [{:keys [key value]}]

View File

@ -10,7 +10,7 @@
(r/create :kv-store {:key key (r/create :kv-store {:key key
:value (str value)} true)))) :value (str value)} true))))
(get [_ key] (get [_ key]
(-> (r/get-by-field :kv-store :key key) (some-> (r/get-by-field :kv-store :key key)
(r/single-cljs) (r/single-cljs)
(r/decode-value))) (r/decode-value)))
(contains-key? [_ key] (contains-key? [_ key]