let serve ~body _ req =
  ignore (body);
  match Uri.path (Request.uri req) with
  | "/" -> Server.respond_with_file "helloHtmlServer.html"
  | _   -> Server.respond_with_string "try curling /\n"