check-update ( old new -- ? )


Vocabulary
furnace.auth.providers.couchdb.private

Inputs
oldan object
newan object


Outputs
?an object


Definition
USING: assocs kernel ;

IN: furnace.auth.providers.couchdb.private

: check-update ( old new -- ? )
[
2dup [ "email" of ] same? not [
[ "email" of ] bi@
[ drop "email" reservation-id unreserve-from-id ]
[ nip "email" reserve ] 2bi
] [ 2drop t ] if
] [
2dup [ "username" of ] same? not [
[ "username" of ] bi@
[ drop "username" reservation-id unreserve-from-id ]
[ nip "username" reserve ] 2bi
] [ 2drop t ] if
] 2bi and ;