USING: accessors namespaces ; USING: io.sockets.secure io.servers ; USING: furnace.actions furnace.boilerplate ; USING: http.server http.server.dispatchers http.server.static ; IN: triangle-beer-league SYMBOLS: key-password key-file dh-file ; TUPLE: tbl < dispatcher ; : ( -- action ) { tbl "tbl" } >>template ; : ( -- action ) { tbl "schedule" } >>template ; : ( -- responder ) tbl new-dispatcher "resource:work/triangle-beer-league" enable-fhtml >>default ; : ( -- threaded-server ) f >>secure 8080 >>insecure ; : start-tbl-site ( -- server ) main-responder set-global start-server ; : start-tbl ( -- ) start-tbl-site wait-for-server ; MAIN: start-tbl