[xen stable-4.4] oxenstored: remove some unused parameters

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[xen stable-4.4] oxenstored: remove some unused parameters

patchbot
commit a99b6600b28b31201a5d6422fb17ee39c4fc6d43
Author:     Jonathan Davies <[hidden email]>
AuthorDate: Thu Mar 23 17:40:08 2017 +0000
Commit:     Ian Jackson <[hidden email]>
CommitDate: Wed Apr 5 15:26:37 2017 +0100

    oxenstored: remove some unused parameters
   
    Reported-by: Juergen Gross <[hidden email]>
    Signed-off-by: Jonathan Davies <[hidden email]>
    Reviewed-by: Andrew Cooper <[hidden email]>
    Reviewed-by: Jon Ludlam <[hidden email]>
    Reviewed-by: Euan Harris <[hidden email]>
    Acked-by: David Scott <[hidden email]>
---
 tools/ocaml/xenstored/process.ml | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/tools/ocaml/xenstored/process.ml b/tools/ocaml/xenstored/process.ml
index 8be2ff1..7026727 100644
--- a/tools/ocaml/xenstored/process.ml
+++ b/tools/ocaml/xenstored/process.ml
@@ -119,7 +119,7 @@ let do_getperms con t domains cons data =
  let perms = Transaction.getperms t (Connection.get_perm con) path in
  Perms.Node.to_string perms ^ "\000"
 
-let do_watch con t rid domains cons data =
+let do_watch con t domains cons data =
  let (node, token) =
  match (split None '\000' data) with
  | [node; token; ""]   -> node, token
@@ -294,25 +294,25 @@ let send_response ty con t rid response =
  | Packet.Error e ->
  Connection.send_error con (Transaction.get_id t) rid e
 
-let reply_ack fct ty con t rid doms cons data =
+let reply_ack fct con t doms cons data =
  fct con t doms cons data;
  Packet.Ack (fun () ->
  if Transaction.get_id t = Transaction.none then
  process_watch (Transaction.get_ops t) cons
  )
 
-let reply_data fct ty con t rid doms cons data =
+let reply_data fct con t doms cons data =
  let ret = fct con t doms cons data in
  Packet.Reply ret
 
-let reply_data_or_ack fct ty con t rid doms cons data =
+let reply_data_or_ack fct con t doms cons data =
  match fct con t doms cons data with
  | Some ret -> Packet.Reply ret
  | None -> Packet.Ack (fun () -> ())
 
-let reply_none fct ty con t rid doms cons data =
+let reply_none fct con t doms cons data =
  (* let the function reply *)
- fct con t rid doms cons data
+ fct con t doms cons data
 
 let function_of_type ty =
  match ty with
@@ -342,7 +342,7 @@ let input_handle_error ~cons ~doms ~fct ~ty ~con ~t ~rid ~data =
  let reply_error e =
  Packet.Error e in
  try
- fct ty con t rid doms cons data
+ fct con t doms cons data
  with
  | Define.Invalid_path          -> reply_error "EINVAL"
  | Define.Already_exist         -> reply_error "EEXIST"
--
generated by git-patchbot for /home/xen/git/xen.git#stable-4.4

_______________________________________________
Xen-changelog mailing list
[hidden email]
https://lists.xenproject.org/xen-changelog
Loading...