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

Minor cleanup to S3 plugin.

Browse source
This commit is contained in:
Brit Butler 2013-01-30 23:24:46 -05:00
parent 7fd7954c5d
commit e1a1ca75cf
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
plugins/s3.lisp
View file

@ -44,8 +44,7 @@ and the secret key on the second.")
:content-type (content-type (pathname-type filepath))))))
(defun dir->s3 (dir)
(flet ((upload (file)
(s3-sync file dir :public-p t)))
(flet ((upload (file) (s3-sync file dir)))
(cl-fad:walk-directory dir #'upload)))
(defmethod deploy :after (staging)