From 3093eae322ccc472bf0f8a1aa33eaa265af9a1d9 Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Tue, 3 Dec 2013 16:16:24 +0700 Subject: [PATCH] Experimental: add `freeze-fallback-as-str` fn --- src/taoensso/nippy.clj | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj index 2ee0f33..beb317c 100644 --- a/src/taoensso/nippy.clj +++ b/src/taoensso/nippy.clj @@ -207,6 +207,13 @@ (comment (reader-serializable? "hello")) (def ^:dynamic *final-freeze-fallback* "Alpha - subject to change." nil) +(defn freeze-fallback-as-str "Alpha-subject to change." [x s] + (freeze-to-stream* {:nippy/unfreezable (str x) :type (type x)} s)) + +(comment + (require '[clojure.core.async :as async]) + (binding [*final-freeze-fallback* freeze-fallback-as-str] + (-> (async/chan) (freeze) (thaw)))) ;; Fallbacks. Note that we'll extend *only* to (lowly) Object to prevent ;; interfering with higher-level implementations, Ref. http://goo.gl/6f7SKl