   [project args]
   (let [profiles-file (io/file (System/getProperty "user.home") ".lein" "profiles.clj")
         settings (-> (parse-cli args)
-                   (assoc :plugins true))]
+                     (assoc :plugins true))]
     (upgrade-profiles-file! project settings profiles-file)))

(def upgrade-project-file!
  "Run upgrade on the given project file using the given settings."
  (-> upgrade-project-file!*
    with-tests
    with-backup
    with-abort))

(def upgrade-profiles-file!
  "Run upgrade on the given profiles file using the given settings."
  (-> upgrade-profiles-file!*
    with-backup
    with-abort))

;; ## Wrappers


      (with-output-settings settings
        (if-let [outdated (seq
                            (->> artifacts
                                 (c/get-outdated-artifacts! repos settings)
                                 (filter-artifacts-with-prompt! settings)))]
          (when-let [map-loc (read-zipper-fn path)]
            (when-let [new-loc (upgrade-artifact-map! map-loc settings outdated)]
              (when (:interactive settings) (main/info))
              (main/info (count outdated)
                         (if (= (count outdated) 1)
                           "artifact was"
                           "artifacts were")
                         "upgraded.")
              (write-zipper! path new-loc settings)))
          (do (main/info "Nothing was upgraded.") ::nothing))))))

