check-sites ( seq -- )

Vocabulary

site-watcher.private

Inputs

seq

an object

Outputs

None

Definition

USING: accessors continuations http.client kernel sequences
site-watcher.db ;

IN: site-watcher.private

: check-sites ( seq -- )
    [
        [ dup url>> http-get 2drop site-good ] [ site-bad ]
        recover
    ] each ;