| changeset 2349 | ba7a0813c532 |
| parent 2348 | b39d826e1ccd |
| child 2867 | 9be6693c78cb |
| 2348:b39d826e1ccd | 2349:ba7a0813c532 |
|---|---|
51 let serverInfo = serverInfo' |
51 let serverInfo = serverInfo' |
52 #endif |
52 #endif |
53 |
53 |
54 Exception.bracket |
54 Exception.bracket |
55 (Network.listenOn $ Network.PortNumber $ listenPort serverInfo) |
55 (Network.listenOn $ Network.PortNumber $ listenPort serverInfo) |
56 (sClose) |
56 sClose |
57 (startServer serverInfo) |
57 (startServer serverInfo) |