From ac0df2b30773a2474746724180e42b44dd2158e3 Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Fri, 11 Sep 2020 17:47:26 +0200 Subject: [PATCH] Return private `write-str-` fns --- src/taoensso/nippy.clj | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj index 015e299..6c43dfc 100644 --- a/src/taoensso/nippy.clj +++ b/src/taoensso/nippy.clj @@ -509,6 +509,9 @@ (defn- write-biginteger [out ^BigInteger n] (write-bytes-lg out (.toByteArray n))) +(defn- write-str-sm [^DataOutput out ^String s] (write-bytes-sm out (.getBytes s charset))) +(defn- write-str-md [^DataOutput out ^String s] (write-bytes-md out (.getBytes s charset))) +(defn- write-str-lg [^DataOutput out ^String s] (write-bytes-lg out (.getBytes s charset))) (defn- write-str [^DataOutput out ^String s] (if (identical? s "") (write-id out id-str-0)