Mercurial > repos > rhope
view basicweb.rhope @ 155:d59611dcec71
Small fix to binary trees benchmark
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 21 Dec 2010 04:12:11 +0000 |
parents | f3686f60985d |
children |
line wrap: on
line source
/* Uses the webserver library to serve static files from the current directory */ //Import the library that does all the hard work Import webserver.rhope Main[args] { [args]Index[1] { port <- Int32[~] } { port <- Val[80] } Print["Starting webserver"] //Since we're just serving static files we don't need to setup any handlers handlers <- Dictionary[] //Start listening on the desired port Listen on Port[port,Connection Start[?, ?, handlers]] { Wait Forever[] } }