/*
	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[] }
}