Skip to content

Instantly share code, notes, and snippets.

@chaliy

chaliy/init_infinite.fs

Created February 17, 2010 22:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save chaliy/307081 to your computer and use it in GitHub Desktop.
Save chaliy/307081 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
init_infinite.fs
Seq.initInfinite(fun i -> listener.AcceptTcpClient())
|> Seq.iter(fun client -> Async.Start (handle client))
//or
while true do
let client = listener.AcceptTcpClient()
Async.Start (handle client)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment