Paste: Hello world

USING: kernel namespaces io.servers
http.server http.server.dispatchers http.server.responses ;
IN: http-unzip

: <main-page-action> ( -- trivial-responder ) 
    200 "Hello World!" <trivial-response> <trivial-responder> ;

: set-main-responder ( -- ) 
    <dispatcher>
        <main-page-action> "" add-responder
    main-responder set-global ;

: run-http-unzip ( -- )
    set-main-responder
    8080 httpd wait-for-server ;

MAIN: run-http-unzip