construct-timestamp ( obj -- obj' )

Vocabulary

yaml.conversion

Inputs

obj

an object

Outputs

obj'

an object

Definition

USING: calendar.parser kernel regexp ;

IN: yaml.conversion

: construct-timestamp ( obj -- obj' )
    dup R/ [0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/ matches?
    [ ymd>timestamp ] [ yaml>rfc3339 rfc3339>timestamp ] if ;