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"