unify-users ( old new -- new )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

old	an object
new	an object

Outputs

new

an object

Definition

USING: assocs kernel ;

IN: furnace.auth.providers.couchdb.private

: unify-users ( old new -- new )
    swap
    [ "_rev" of "_rev" rot set-at ]
    [ "_id" of "_id" rot set-at ] [ swap assoc-union ] 2tri ;