Silence some compiler warnings

Change-Id: I56a3d16b73bc184aec274aa556632df7f5407c6c
Incubaid · Jan 25, 2013 · 5d73727 · 5d73727
1 parent 02ea885
commit 5d73727
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/src/hope/v1.ml b/src/hope/v1.ml
@@ -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

diff --git a/src/hope/v2.ml b/src/hope/v2.ml
@@ -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 _client_id = Pack.input_string rest in
-        let cluster_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 ()