make-permit ( uid -- id )

Vocabulary

furnace.auth.login.permits

Inputs

uid

an object

Outputs

id

an object

Definition

USING: accessors db.tuples furnace.sessions kernel namespaces ;

IN: furnace.auth.login.permits

: make-permit ( uid -- id )
    permit new swap >>uid session get id>> >>session
    [ touch-permit ] [ insert-tuple ] [ id>> ] tri ;