process-result ( url spider-result -- )

Vocabulary

spider.report

Inputs

url	an object
spider-result	an object

Outputs

None

Definition

USING: accessors combinators kernel ;

IN: spider.report

: process-result ( url spider-result -- )
    {
        { f [ record-network-failure ] }
        [
            dup headers>> code>> 200 =
            [ record-page-timings ] [ record-broken-page ] if
        ]
    } case ;