expire-sessions ( db -- )

Vocabulary

furnace.alloy.private

Inputs

db

an object

Outputs

None

Definition

USING: continuations db furnace.alloy furnace.cache kernel
logging sequences ;

IN: furnace.alloy.private

: expire-sessions ( db -- )
    "furnace.alloy" [
        [ [ state-classes [ expire-state ] each ] with-db ]
        [ nip \ expire-sessions log-error ] recover
    ] with-logging ;