   [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


(ns ^{:doc "Rewrite project.clj to include latest versions of dependencies."
      :author "Yannick Scherer"}
  leiningen.ancient.upgrade
  (:require [leiningen.ancient.utils.test :as t]
            [leiningen.ancient.utils.projects :refer :all]
