update-hierarchy ( msg -- )

Vocabulary

io.monitors.recursive

Inputs

msg

an object

Outputs

None

Definition

USING: accessors combinators io.monitors kernel sequences ;

IN: io.monitors.recursive

: update-hierarchy ( msg -- )
    [ path>> ] [ monitor>> ] [ changed>> ] tri [
        {
            { +add-file+ [ child-added ] }
            { +remove-file+ [ child-removed ] }
            { +rename-file-old+ [ child-removed ] }
            { +rename-file-new+ [ child-added ] }
            [ 3drop ]
        } case
    ] 2with each ;