diff options
| author | David Barksdale <amatus@amatus.name> | 2015-11-29 18:12:16 -0600 |
|---|---|---|
| committer | David Barksdale <amatus@amatus.name> | 2015-11-29 18:12:16 -0600 |
| commit | 213249201488bf33001ff2f0613888bc1f820a30 (patch) | |
| tree | f0615ae8034005c7d21300bc2cddcc800d0cd7c3 | |
| parent | a78e40245684f49906b54aa7911f9c80c516d6b7 (diff) | |
Switch to transit-cljs
| -rw-r--r-- | build.boot | 20 | ||||
| -rw-r--r-- | src/cljs/gnunet_web/service.cljs | 8 |
2 files changed, 14 insertions, 14 deletions
@@ -1,14 +1,14 @@ (set-env! - :dependencies '[[adzerk/boot-cljs "1.7.170-3"] - [fence "0.2.0"] - [hoplon/boot-hoplon "0.1.9"] - [hoplon/hoplon "6.0.0-alpha11"] - [net.clojure/monads "1.0.2"] - [org.clojure/clojure "1.7.0"] - [org.clojure/clojurescript "1.7.170"] - [org.clojure/core.async "0.2.374"] - [pandeiro/boot-http "0.7.1-SNAPSHOT"] - [tailrecursion/cljson "1.0.7"]] ; TODO: depricated! + :dependencies '[[adzerk/boot-cljs "1.7.170-3"] + [com.cognitect/transit-cljs "0.8.232"] + [fence "0.2.0"] + [hoplon/boot-hoplon "0.1.9"] + [hoplon/hoplon "6.0.0-alpha11"] + [net.clojure/monads "1.0.2"] + [org.clojure/clojure "1.7.0"] + [org.clojure/clojurescript "1.7.170"] + [org.clojure/core.async "0.2.374"] + [pandeiro/boot-http "0.7.1-SNAPSHOT"]] :source-paths #{"src/cljs" "src/hl" "src/js"} :resource-paths #{"assets"}) diff --git a/src/cljs/gnunet_web/service.cljs b/src/cljs/gnunet_web/service.cljs index c6be3a5..e7e8254 100644 --- a/src/cljs/gnunet_web/service.cljs +++ b/src/cljs/gnunet_web/service.cljs @@ -1,5 +1,5 @@ ;; service.cljs - service manager for gnunet-web website -;; Copyright (C) 2013,2014 David Barksdale <amatus@amatus.name> +;; Copyright (C) 2013-2015 David Barksdale <amatus@amat.us> ;; ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -15,7 +15,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (ns gnunet-web.service - (:require [tailrecursion.cljson :refer [clj->cljson cljson->clj]])) + (:require [cognitect.transit :as t])) (def private-key ;; XXX This has no synchronization! @@ -24,9 +24,9 @@ (let [d (js/Uint8Array. 32) _ (js/window.crypto.getRandomValues d) d (vec (.apply js/Array (array) d))] - (.setItem js/localStorage "private-key" (clj->cljson d)) + (.setItem js/localStorage "private-key" (t/write (t/writer :json) d)) d) - (cljson->clj d)))) + (t/read (t/reader :json) d)))) (def services (atom {})) |