log-server-loop ( -- )

Vocabulary

logging.server

Inputs

None

Outputs

None

Definition

USING: combinators concurrency.messaging kernel sequences ;

IN: logging.server

: log-server-loop ( -- )
    receive unclip {
        { "log-message" [ (log-message) ] }
        { "rotate-logs" [ drop (rotate-logs) ] }
        { "close-logs" [ drop (close-logs) ] }
    } case log-server-loop ;