Skip to content

Instantly share code, notes, and snippets.

@7sharp9

7sharp9/test.fs

Created November 15, 2011 23:20
Show Gist options
  • Save 7sharp9/1368709 to your computer and use it in GitHub Desktop.
Save 7sharp9/1368709 to your computer and use it in GitHub Desktop.
Download ZIP
simple hhtp
Raw
test.fs
let server = new HttpServer(OnHeaders = respondHelloWorld ) )
@panesofglass
Copy link

Beautiful! The only thing better would be to wrap that in an async so that it's not so callback-y.

let http = async
let server =
  http { let! headers = receiveHeaders
         return respondHelloWorld headers }

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment