Compare commits
4 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
8fbc5a540e | ||
|
|
887319ad05 | ||
| 7b32156467 | |||
| f1f2e2a663 |
@@ -5,4 +5,6 @@
|
||||
(release "2")
|
||||
(release "3")
|
||||
(release "4")
|
||||
(release "5")
|
||||
(release "5")
|
||||
(release "6")
|
||||
(release "7")
|
||||
@@ -187,7 +187,7 @@
|
||||
content-length: object-length no-xml: #t))
|
||||
|
||||
(define (put-string! bucket key string)
|
||||
(put-object! bucket key (lambda () string) (string-length string) "text/plain"))
|
||||
(put-object! bucket key (lambda () (display string)) (string-length string) "text/plain"))
|
||||
|
||||
(define (put-sexp! bucket key sexp)
|
||||
(let-values (((res request-uri response) (put-string! bucket key (->string sexp))))
|
||||
@@ -212,4 +212,4 @@
|
||||
(define (delete-object! bucket key)
|
||||
(perform-aws-request bucket: bucket path: key no-xml: #t verb: "DELETE"))
|
||||
|
||||
)
|
||||
)
|
||||
|
||||
@@ -11,5 +11,5 @@
|
||||
; Files to install for your extension:
|
||||
'("amazon-s3.o" "amazon-s3.so" "amazon-s3.import.so")
|
||||
; Assoc list with properties for your extension:
|
||||
'((version 5)
|
||||
'((version 7)
|
||||
(static "amazon-s3.o"))) ;; for static linking
|
||||
Reference in New Issue
Block a user