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