user>user-hash ( user -- hash )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

user

an object

Outputs

hash

an object

Definition

USING: accessors assocs base64 furnace.auth.providers.couchdb
kernel namespaces strings ;

IN: furnace.auth.providers.couchdb.private

: user>user-hash ( user -- hash )
    hash-mirror
    [ [ "password" ] dip [ >base64 >string ] change-at ] keep
    couchdb-auth-provider get field-map>> map-fields-forward ;