From 7613ffd74e0fe080a5c52f3c4ed6abb8d99df879 Mon Sep 17 00:00:00 2001
From: Nathan Marz <nathan@nathanmarz.com>
Date: Wed, 1 Apr 2015 18:00:22 -0400
Subject: [PATCH] add setval convenience function to api

---
 src/clj/com/rpl/specter.clj | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/clj/com/rpl/specter.clj b/src/clj/com/rpl/specter.clj
index a4ed2ea..ab4291b 100644
--- a/src/clj/com/rpl/specter.clj
+++ b/src/clj/com/rpl/specter.clj
@@ -55,6 +55,8 @@
                  (apply update-fn (conj vals structure)))
                ))))
 
+(defn setval [selector val structure]
+  (update selector (fn [_] val) structure))
 
 (defn replace-in [selector update-fn structure & {:keys [merge-fn] :or {merge-fn concat}}]
   "Returns [new structure [<user-ret> <user-ret>...]"