comparison basicweb.rhope @ 147:f3686f60985d

Sort of working port of framework. Transaction bug seems to be getting in the way. Going to work around, but want the old version in the repo so I can test later.
author Mike Pavone <pavone@retrodev.com>
date Mon, 22 Nov 2010 01:15:02 -0500
parents 1f39e69446f9
children
comparison
equal deleted inserted replaced
146:1f39e69446f9 147:f3686f60985d
7 7
8 Main[args] 8 Main[args]
9 { 9 {
10 [args]Index[1] 10 [args]Index[1]
11 { port <- Int32[~] } 11 { port <- Int32[~] }
12 { port <- 80 } 12 { port <- Val[80] }
13 Print["Starting webserver"] 13 Print["Starting webserver"]
14 //Since we're just serving static files we don't need to setup any handlers 14 //Since we're just serving static files we don't need to setup any handlers
15 handlers <- Dictionary[] 15 handlers <- Dictionary[]
16 //Start listening on the desired port 16 //Start listening on the desired port
17 Listen on Port[port,Connection Start[?, ?, handlers]] 17 Listen on Port[port,Connection Start[?, ?, handlers]]