marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I am idiot sometimes. Fix DEPLOY.

Browse source
This commit is contained in:
Brit Butler 2012-08-29 23:48:14 -04:00
parent da8895a28a
commit 3a83616bb8
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/coleslaw.lisp
View file

@ -46,10 +46,11 @@ If RAW is non-nil, write the content without wrapping it in the base template."
(curr (app-path ".curr")))
(ensure-directories-exist new-build)
(run-program "mv ~a ~a" staging new-build)
; KLUDGE: Is there a better way to portably catch dead symlinks?
(if (and (probe-file prev) (equal prev (ignore-errors (truename prev))))
(delete-file prev)
(cl-fad:delete-directory-and-files (truename prev)))
(when (probe-file prev)
(let ((dest (truename prev)))
(if (equal prev dest)
(delete-file prev)
(cl-fad:delete-directory-and-files dest))))
(when (probe-file curr)
(update-symlink prev (truename curr)))
(update-symlink curr new-build)))))