find-vhost ( dispatcher -- responder )

Vocabulary

http.server.dispatchers

Inputs

dispatcher

an object

Outputs

responder

an object

Definition

USING: accessors assocs kernel namespaces urls ;

IN: http.server.dispatchers

: find-vhost ( dispatcher -- responder )
    url get host>> canonical-host over responders>> at*
    [ nip ] [ drop default>> ] if ;