From f42c27aa536a71b2cd89943a34b183de676bd0bd Mon Sep 17 00:00:00 2001
From: Chris Truter <jeffpalentine@gmail.com>
Date: Sun, 25 May 2014 14:52:40 +0200
Subject: [PATCH] Skip anaemic helper

---
 src/leiningen/change.clj | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/leiningen/change.clj b/src/leiningen/change.clj
index d31fc679..23ffc7db 100644
--- a/src/leiningen/change.clj
+++ b/src/leiningen/change.clj
@@ -84,11 +84,6 @@
         loc)
       (zip/insert-left (clj->sjacket val))))
 
-(defn insert-key-val [loc key val]
-  (-> loc
-      (insert-entry key)
-      (insert-entry val)))
-
 (defn- update-version [proj fn]
   (-> proj
       find-string
@@ -100,7 +95,8 @@
   (let [loc'  (-> loc (find-key p) next-value)
         loc'' (or loc' (-> loc
                            zip/rightmost
-                           (insert-key-val p {})
+                           (insert-entry p)
+                           (insert-entry {})
                            zip/left))]
     (if (empty? ath)
       (zip/root (zip/edit loc'' fn ))