浏览代码

Minor deploy fix.

Brit Butler 12 年之前
父节点
当前提交
51ce961bae
共有 2 个文件被更改,包括 2 次插入3 次删除
  1. 2 2
      src/coleslaw.lisp
  2. 0 1
      src/packages.lisp

+ 2 - 2
src/coleslaw.lisp

68
            (curr (rel-path dest ".curr")))
68
            (curr (rel-path dest ".curr")))
69
       (ensure-directories-exist new-build)
69
       (ensure-directories-exist new-build)
70
       (run-program "mv ~a ~a" staging new-build)
70
       (run-program "mv ~a ~a" staging new-build)
71
-      (when (probe-file prev)
72
-        (delete-directory-and-files (truename prev) :if-does-not-exist :ignore))
71
+      (when (and (probe-file prev) (truename prev))
72
+        (run-program "rm -r ~a" (truename prev)))
73
       (when (probe-file curr)
73
       (when (probe-file curr)
74
         (update-symlink prev (truename curr)))
74
         (update-symlink prev (truename curr)))
75
       (update-symlink curr new-build))))
75
       (update-symlink curr new-build))))

+ 0 - 1
src/packages.lisp

6
                             #:mappend
6
                             #:mappend
7
                             #:compose)
7
                             #:compose)
8
   (:import-from :closure-template #:compile-template)
8
   (:import-from :closure-template #:compile-template)
9
-  (:import-from :cl-fad #:delete-directory-and-files)
10
   (:export #:main
9
   (:export #:main
11
            #:preview
10
            #:preview
12
            #:*config*
11
            #:*config*