     (let [id (uuid key)]
       (go
         (try
-          (car/wcar conn (car/parse-raw (car/set id input)))
+          (car/wcar conn (car/set id (car/raw input)))
+          nil
           (catch Exception e
             (ex-info "Could not write key."
                      {:type :write-error

  (drop 2 (byte-array [1 2 3]))


  (<!! (-exists? store "bar"))

  (<!! (-update-in store ["bar"] (fn [_] 1)))

  (<!! (-update-in store ["bar"] inc))

  (<!! (-get-in store ["bar"]))


  (<!! (-bassoc store "bbar" (byte-array (range 5))))

            (when new
              (let [baos (ByteArrayOutputStream.)]
                (-serialize serializer baos write-handlers [key-vec new])
                (car/wcar conn (car/set id (car/raw (.toByteArray baos))))))
            (put! res-ch [(get-in old rkey)
                          (get-in new rkey)]))
          res-ch
