mwmitchell · January 29, 2015 04:30
diff --git a/maybe_update_in.clj b/maybe_update_in.clj
 ;; Like update-in, but doesn't call the fn
 ;; (or set a key) if the key doesn't already exist.
 (defn maybe-update-in [data ks fn]
  (if ((last ks) (-> data (get-in (butlast ks)) keys set))
    (update-in data ks fn)
    data))
	;; Like update-in, but doesn't call the fn
	;; (or set a key) if the key doesn't already exist.
	(defn maybe-update-in [data ks fn]
	(if ((last ks) (-> data (get-in (butlast ks)) keys set))
	(update-in data ks fn)
	data))