date-parser ( -- parser )

Vocabulary

logging.parser

Inputs

None

Outputs

parser

an object

Definition

USING: calendar.parser kernel logging.server peg peg.parsers
sequences ;

IN: logging.parser

: date-parser ( -- parser )
    [ "]" member? not ] string-of [
        dup multiline-header =
        [ drop multiline ] [ rfc3339>timestamp ] if
    ] action "[" "]" surrounded-by ;