From 41d3dcd467b26adff76bfd3264a43fd8035d1616 Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Thu, 17 Sep 2015 11:10:51 +0700 Subject: [PATCH] `*default-freeze-compressor-selector*` should be public --- src/taoensso/nippy.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj index 6180f20..58fdca0 100644 --- a/src/taoensso/nippy.clj +++ b/src/taoensso/nippy.clj @@ -382,12 +382,12 @@ (> ba-len 128) lz4-compressor :else nil))) -(encore/defonce* ^:dynamic ^:private *default-freeze-compressor-selector* +(encore/defonce* ^:dynamic *default-freeze-compressor-selector* + "(fn selector [^bytes ba])->compressor used by `(freeze {:compressor :auto})." default-freeze-compressor-selector) (defn set-default-freeze-compressor-selector! - "Sets global dynamic (fn selector [^bytes ba])->compressor used by - `(freeze {:compressor :auto <...>})." + "Sets root binding of `*default-freeze-compressor-selector*`." [selector] (alter-var-root #'*default-freeze-compressor-selector* (constantly selector)))