delete-when-checksum-mismatches ( path checksum-type bytes -- deleted? )

Vocabulary

http.download

Inputs

path	an object
checksum-type	an object
bytes	an object

Outputs

deleted?

an object

Definition

USING: io.directories kernel shuffle ;

IN: http.download

: delete-when-checksum-mismatches
    ( path checksum-type bytes -- deleted? )
    dupdd file-matches-checksum?
    [ drop f ] [ ?delete-file t ] if ;