Private deftype for option implementations

mfikes · Nov 19, 2022 · 11bfbdd · 11bfbdd
1 parent 0c4a2ce
commit 11bfbdd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/cljs_bean/core.cljs b/src/cljs_bean/core.cljs
@@ -727,14 +727,14 @@
     (prop->key [_ prop] prop)
     (transform [ctx v _ _ _] (->val ctx v))))
 
-(deftype K-Transform [key->prop' prop->key']
+(deftype ^:private K-Transform [key->prop' prop->key']
   BeanContext
   (keywords? [_] (identical? key->prop' keyword))
   (key->prop [_ x] (key->prop' x))
   (prop->key [_ prop] (prop->key' prop))
   (transform [ctx v _ _ _] (->val ctx v)))
 
-(deftype V-Transform [transform']
+(deftype ^:private V-Transform [transform']
   BeanContext
   (keywords? [_] false)
   (key->prop [_ x] x)
@@ -743,7 +743,7 @@
     (if-some [transformed (transform' v)] transformed
       #_else (->val ctx v))))
 
-(deftype KV-Transform [key->prop' prop->key' transform']
+(deftype ^:private KV-Transform [key->prop' prop->key' transform']
   BeanContext
   (keywords? [_] (identical? prop->key' keyword))
   (key->prop [_ x] (key->prop' x))