Merge pull request #81 from digiorgi/master
coleslaw-s3::*credentials* was useless and not setting the important …
This commit is contained in:
commit
c45d7be575
1 changed files with 3 additions and 6 deletions
|
@ -10,11 +10,6 @@
|
|||
|
||||
(in-package :coleslaw-s3)
|
||||
|
||||
(defparameter *credentials* nil
|
||||
"The credentials to authenticate with Amazon Web Services.
|
||||
Stored in a file with the access key on the first line
|
||||
and the secret key on the second.")
|
||||
|
||||
(defparameter *content-type-map* '(("html" . "text/html")
|
||||
("css" . "text/css")
|
||||
("png" . "image/png")
|
||||
|
@ -53,5 +48,7 @@ and the secret key on the second.")
|
|||
(zs3:delete-objects (stale-keys) *bucket*)))
|
||||
|
||||
(defun enable (&key auth-file bucket)
|
||||
(setf *credentials* (zs3:file-credentials auth-file)
|
||||
"AUTH-FILE: Path to file with the access key on the first line and the secret
|
||||
key on the second."
|
||||
(setf zs3:*credentials* (zs3:file-credentials auth-file)
|
||||
*bucket* bucket))
|
||||
|
|
Loading…
Add table
Reference in a new issue