syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(delete-account X) --> (delete-resource (account X))

This commit is contained in:
Tony Garnock-Jones 2017-01-04 20:57:26 -05:00
parent 038ea39b30
commit 4d2252b90a
5 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/webchat/server/account.rkt
View File

@ -23,4 +23,4 @@
(on-stop (log-info "Account ~s deleted." email))
(assert (account email))
(assert (grant email email email (p:follow email) #t))
(stop-when (message (delete-account email)))))
(stop-when (message (delete-resource (account email))))))

2
examples/webchat/server/api.rkt
View File

@ -22,7 +22,7 @@
#:scope scope
#:hook (lambda ()
(stop-when (message (end-session sid)))
(stop-when (message (delete-account email)))))]
(stop-when (message (delete-resource (account email))))))]
[else
(web-respond/xexpr! id
#:header (web-response-header #:code 401

4
examples/webchat/server/pages.rkt
View File

@ -223,7 +223,7 @@
(assert (login-link email sid))
(stop-when (asserted (session _ sid))) ;; happy path
(stop-when (message (end-session sid)))
(stop-when (message (delete-account email)))
(stop-when (message (delete-resource (account email))))
(stop-when-timeout (* 10 1000)))) ;; 10 seconds
(define (login-link-emailed-page id maybe-insecure-validation-url)
@ -267,5 +267,5 @@
(on-stop (log-info "Session ~s for ~s stopped." sid email))
(assert (session email sid))
(stop-when (message (end-session sid)))
(stop-when (message (delete-account email)))
(stop-when (message (delete-resource (account email))))
(stop-when-timeout (* 7 86400 1000)))) ;; 1 week

5
examples/webchat/server/protocol.rkt
View File

@ -31,11 +31,6 @@
;; Represents an extant account.
(struct account (email) #:prefab) ;; ASSERTION
;; (delete-account EmailString)
;; Deletes the account named by the given email.
;; As a side effect, should delete all sessions associated with the account.
(struct delete-account (email) #:prefab) ;; MESSAGE
;;---------------------------------------------------------------------------
;; API requests and assertions

6
examples/webchat/server/trust.rkt
View File

@ -29,9 +29,9 @@
(stop-when (message (delete-resource g)))
(stop-when (message
(delete-resource (permitted issuer grantee permission delegable?))))
(stop-when (message (delete-account issuer)))
(stop-when (message (delete-account grantor)))
(stop-when (message (delete-account grantee))))))
(stop-when (message (delete-resource (account issuer))))
(stop-when (message (delete-resource (account grantor))))
(stop-when (message (delete-resource (account grantee)))))))
(actor #:name 'request-factory
(stop-when-reloaded)