file-server-main ( -- )

Vocabulary

file-server

Inputs

None

Outputs

None

Definition

USING: accessors command-line http.server http.server.cgi
http.server.static io.servers kernel namespaces ;

IN: file-server

: file-server-main ( -- )
    [
        command-line get file-server-args "." or
        <static> t >>allow-listings swap [ enable-cgi ] when
        main-responder set-global 8080 httpd wait-for-server
    ] file-server-logging ;