Permalink
Browse files

Silence some compiler warnings

Change-Id: I56a3d16b73bc184aec274aa556632df7f5407c6c
  • Loading branch information...
1 parent 02ea885 commit 5d73727925b8b639b99135a383ba2731c1711847 @NicolasT NicolasT committed Jan 25, 2013
Showing with 4 additions and 6 deletions.
  1. +0 −1 src/hope/v1.ml
  2. +4 −5 src/hope/v2.ml
View
@@ -143,7 +143,6 @@ module V1(S:Core.STORE)(A:MP_ACTION_DISPATCHER) = struct
let _do_delete_prefix (ic,oc) me store stats driver =
Llio.input_string ic >>= fun prefix ->
let _inner () =
- let t0 = Unix.gettimeofday () in
D.push_cli_req driver (Core.DELETE_PREFIX prefix) >>= fun a ->
(* Statistics.new_delete_prefix stats t0; *)
match a with
View
@@ -169,7 +169,6 @@ let _set driver k v =
let key = Pack.input_string rest in
Lwtc.log "DELETE_PREFIX %S" key >>= fun () ->
let _inner () =
- let t0 = Unix.gettimeofday () in
D.push_cli_req driver (Core.DELETE_PREFIX key) >>= fun a ->
let out = Pack.make_output 64 in
begin
@@ -281,8 +280,8 @@ let _set driver k v =
in
match comm with
| Common.PING ->
- let client_id = Pack.input_string rest in
- let cluster_id = Pack.input_string rest in
+ let _client_id = Pack.input_string rest in
+ let _cluster_id = Pack.input_string rest in
let msg = Printf.sprintf "Arakoon %S" Version.git_info in
output_ok_string msg
| Common.WHO_MASTER ->
@@ -548,7 +547,7 @@ let _set driver k v =
Lwtc.log "GET_NURSERY_CFG" >>= fun () ->
V.admin_get store V.__routing_key >>= fun v ->
let input = Pack.make_input v 0 in
- let rsize = Pack.input_size input in
+ let _rsize = Pack.input_size input in
Lwt_log.debug "Decoding routing info" >>= fun () ->
let r = Routing.routing_from input in
let out = Pack.make_output 32 in
@@ -570,7 +569,7 @@ let _set driver k v =
Lwt_log.debug_f "Sub %s %d %d" k key_start tail_size >>= fun () ->
let clu_id = String.sub k key_start tail_size in
let input = Pack.make_input v 0 in
- let input_size = Pack.input_size input in
+ let _input_size = Pack.input_size input in
let cfg = ClientCfg.cfg_from input in
Hashtbl.replace clusters clu_id cfg;
Lwt.return ()

0 comments on commit 5d73727

Please sign in to comment.