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