serve-file ( filename -- response )

Vocabulary

http.server.static

Inputs

filename

an object

Outputs

response

an object

Definition

USING: accessors assocs combinators kernel logging mime.types
namespaces ;

IN: http.server.static

: serve-file ( filename -- response )
    1 \ serve-file \ NOTICE log-stack dup mime-type
    [ file-responder get special>> at ]
    [ ( filename -- response ) call-effect ] [ serve-static ]
    ?if ;