user-hash>user ( hash -- user )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

hash

an object

Outputs

user

an object

Definition

USING: accessors assocs base64 byte-arrays
furnace.auth.providers furnace.auth.providers.couchdb kernel
mirrors namespaces ;

IN: furnace.auth.providers.couchdb.private

: user-hash>user ( hash -- user )
    couchdb-auth-provider get field-map>> map-fields-backward
    [ "password" swap [ base64> >byte-array ] change-at ] [
        strip-hash user new dup
        [ make-mirror swap assoc-union! drop ] dip f >>changed?
    ] bi ;