server.fs

    let rec loop : Async<unit> =
        async {
            let! req = HttpRequestParser.Parse buf read
            let! resp = app.Handle req
            let kA = isKeepAlive req
            do! respond socket buf (setKeepAlive kA resp)
            if isKeepAlive req then
                return! loop
            else
                return ()
        }
    loop