let serve ~body _ req = ignore (body); match Uri.path (Cohttp_async.Request.uri req) with | "/" -> Cohttp_async.Server.respond_with_string "hello, world!\n" | _ -> Cohttp_async.Server.respond_with_string "try curling /\n"