get-permit-uid ( id -- uid )

Vocabulary

furnace.auth.login.permits

Inputs

id

an object

Outputs

uid

an object

Definition

USING: accessors combinators.short-circuit furnace.cache
furnace.sessions kernel namespaces ;

IN: furnace.auth.login.permits

: get-permit-uid ( id -- uid )
    permit get-state {
        [ ]
        [ session>> session get id>> = ]
        [ [ touch-permit ] [ uid>> ] bi ]
    } 1&& ;