serving-path ( filename -- filename )

Vocabulary

http.server.static

Inputs

filename

an object

Outputs

filename

an object

Definition

USING: accessors io.pathnames kernel namespaces sequences ;

IN: http.server.static

: serving-path ( filename -- filename )
    [ file-responder get root>> trim-tail-separators ] dip
    [ "/" swap trim-head-separators 3append ] unless-empty ;