log-entry. ( entry -- )

Vocabulary

logging.parser

Inputs

entry

an object

Outputs

None

Definition

USING: accessors combinators io prettyprint splitting ;

IN: logging.parser

: log-entry. ( entry -- )
    "====== " write {
        [ date>> log-timestamp. bl ]
        [ level>> pprint bl ]
        [ word-name>> print ]
        [ message>> join-lines print ]
    } cleave ;