update-runs ( builder -- run-id )

Vocabulary

webapps.mason.status-update

Inputs

builder

an object

Outputs

run-id

an object

Definition

USING: accessors combinators db.tuples kernel
webapps.mason.backend ;

IN: webapps.mason.status-update

: update-runs ( builder -- run-id )
    [ run new ] dip {
        [ host-name>> >>host-name ]
        [ os>> >>os ]
        [ cpu>> >>cpu ]
        [ current-timestamp>> >>timestamp ]
        [ current-git-id>> >>git-id ]
    } cleave dup insert-tuple run-id>> ;