add-user ( provider user -- provider )

Vocabulary

furnace.auth.providers

Inputs

provider	an authentication provider
user	an user

Outputs

provider

an authentication provider

Word description

A utility word which calls new-user and throws an error if the user already exists.

Definition

USING: kernel ;

IN: furnace.auth.providers

: add-user ( provider user -- provider )
    over new-user [ "User exists" throw ] when ;