 (defn activate
   "completely activate a feature for all users"
   [{storage :storage} feature-name]
-  (with-storage
+  (update-in-storage
     #(assoc %
             :percentage
             100)))

(defn activate-user
  "activate a feature for a particular user"
  [{storage :storage} feature-name user]
  (with-storage
    (fn [feature]
      (update-in feature
                :users

  "deactivate a feature for a particular group.
  A group is just a string"
  [{storage :storage} feature-name group]
  (update-in-storage
    (fn [feature]
      (update-in feature
                 :groups
