db4
Slava Pestov 2008-06-18 03:28:15 -05:00
parent db6b24614f
commit 5a133ceece
1 changed files with 3 additions and 1 deletions

View File

@ -16,7 +16,9 @@ IN: furnace.auth.features.deactivate-user
] >>submit ;
: allow-deactivation ( realm -- realm )
<deactivate-user-action> "deactivate-user" add-responder ;
<deactivate-user-action> <protected>
"delete your profile" >>description
"deactivate-user" add-responder ;
: allow-deactivation? ( -- ? )
realm get responders>> "deactivate-user" swap key? ;