Fixed small bug in appengine-clean Leiningen task.

gcv · Sep 22, 2010 · baa7ed7 · baa7ed7
1 parent fc15ca6
commit baa7ed7
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/leiningen/appengine_clean.clj b/src/leiningen/appengine_clean.clj
@@ -5,12 +5,13 @@
 
 
 (defn appengine-clean [project]
-  (println "cleaning out App Engine application" (:appengine-display-name project))
-  (let [resources-dir (File. (:resources-path project))
+  (let [prj-application (or (:appengine-application project) (:name project))
+        resources-dir (File. (:resources-path project))
         war-dir (File. resources-dir "war")
         WEB-INF-dir (File. war-dir "WEB-INF")
         target-classes-dir (File. WEB-INF-dir "classes")
         target-lib-dir (File. WEB-INF-dir "lib")]
+    (println "cleaning out App Engine application" prj-application)
     ;; delete existing content of target classes/ and lib/
     (lancet/delete {:dir (.getPath target-classes-dir)})
     (lancet/delete {:dir (.getPath target-lib-dir)})))