Mark with-bucket as deprecated.

test-github-pull-request
Thomas Hintz 11 years ago
parent 8fbc5a540e
commit 0f5aedbf22

@ -111,9 +111,6 @@
(reader-thunk read-string) (reader-thunk read-string)
(content-type "application/x-www-form-urlencoded") (content-type "application/x-www-form-urlencoded")
(content-length 0)) (content-length 0))
;(handle-exceptions
; exn
; ((condition-property-accessor 'client-error 'body) exn)
(with-input-from-request (with-input-from-request
(aws-request bucket path verb no-auth: no-auth content-type: content-type content-length: content-length) (aws-request bucket path verb no-auth: no-auth content-type: content-type content-length: content-length)
body body
@ -155,6 +152,9 @@
;;; api ;;; api
; broken and deprecated
; next version will have parameterized keywords so this
; won't be necessary
(define-syntax with-bucket (define-syntax with-bucket
(syntax-rules () (syntax-rules ()
((with-bucket bucket (func p1 ...)) ((with-bucket bucket (func p1 ...))

Loading…
Cancel
Save