log-level-parser ( -- parser )

Vocabulary

logging.parser

Inputs

None

Outputs

parser

an object

Definition

USING: accessors assocs kernel logging peg sequences ;

IN: logging.parser

: log-level-parser ( -- parser )
    log-levels keys
    [ [ name>> token ] keep [ nip ] curry action ] map choice ;