From 83ab6ad3ef9028a95e793e7a01aa9f21af59e961 Mon Sep 17 00:00:00 2001 From: michaelr Date: Thu, 17 Mar 2016 21:32:59 +0200 Subject: [PATCH] fixed, get would fail when key doesn't exist --- src/messenger/persistence/realm.cljs | 4 ++-- src/messenger/persistence/simple_kv_store.cljs | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/messenger/persistence/realm.cljs b/src/messenger/persistence/realm.cljs index d0bdc5ebe5..ea72c9b561 100644 --- a/src/messenger/persistence/realm.cljs +++ b/src/messenger/persistence/realm.cljs @@ -55,8 +55,8 @@ (-> (aget result 0))) (defn single-cljs [result] - (-> (aget result 0) - (js->clj :keywordize-keys true))) + (some-> (aget result 0) + (js->clj :keywordize-keys true))) (defn decode-value [{:keys [key value]}] (read-string value)) diff --git a/src/messenger/persistence/simple_kv_store.cljs b/src/messenger/persistence/simple_kv_store.cljs index ca74bd01a8..fcddc6d3d5 100644 --- a/src/messenger/persistence/simple_kv_store.cljs +++ b/src/messenger/persistence/simple_kv_store.cljs @@ -10,9 +10,9 @@ (r/create :kv-store {:key key :value (str value)} true)))) (get [_ key] - (-> (r/get-by-field :kv-store :key key) - (r/single-cljs) - (r/decode-value))) + (some-> (r/get-by-field :kv-store :key key) + (r/single-cljs) + (r/decode-value))) (contains-key? [_ key] (= 0 (.-length (r/get-by-field :kv-store :key key)))) @@ -23,4 +23,4 @@ (comment - ) \ No newline at end of file + ) \ No newline at end of file