 (def upgrade-project-file!
   "Run upgrade on the given project file using the given settings."
   (-> upgrade-project-file!*
-    with-tests
-    with-backup
-    with-abort))
+      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))
+      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))))))


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