LAST_ENTRIES works again (after Protocol changes)

Incubaid · May 2, 2012 · 98fe547 · 98fe547
1 parent 0585000
commit 98fe547
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/hope/c.ml b/src/hope/c.ml
@@ -173,7 +173,8 @@ module ProtocolHandler (S:Core.STORE) = struct
 
       | Common.LAST_ENTRIES ->
 	begin
-	  Sn.input_sn ic >>= fun i ->
+          let i = Pack.input_vint64 rest in
+          Lwtc.log "LAST_ENTRIES %Li" i >>= fun () ->
 	  Llio.output_int32 oc 0l >>= fun () ->
 	  _last_entries store i oc >>= fun () ->
 	  Sn.output_sn oc (Sn.of_int (-1)) >>= fun () ->