date-parser ( -- parser )

Vocabulary

toml.private

Inputs

None

Outputs

parser

an object

Definition

USING: make peg peg.parsers sequences ;

IN: toml.private

: date-parser ( -- parser )
    [
        decdigit 4 exactly-n , "-" token , decdigit 2 exactly-n
        , "-" token , decdigit 2 exactly-n ,
    ] seq* [ "" concat-as ] action ;