claim-ticket ( ticket username provider -- user/f )

Vocabulary

furnace.auth.providers

Inputs

ticket	an object
username	an object
provider	an object

Outputs

user/f

an object

Definition

USING: accessors kernel ;

IN: furnace.auth.providers

:: claim-ticket ( ticket username provider -- user/f )
    username provider get-user :> user user [
        user ticket>> ticket =
        [ user f >>ticket dup provider update-user ] [ f ] if
    ] [ f ] if ;