From 9f1c7039917012e129f776b4fd44483f27ee7b1d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= Date: Tue, 19 Jun 2018 00:55:12 +0200 Subject: [PATCH] Alpha: fix snapshot removal --- src/proto_alpha/lib_protocol/src/storage_functors.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/src/storage_functors.ml b/src/proto_alpha/lib_protocol/src/storage_functors.ml index b4bf3b886..53e429b4a 100644 --- a/src/proto_alpha/lib_protocol/src/storage_functors.ml +++ b/src/proto_alpha/lib_protocol/src/storage_functors.ml @@ -460,7 +460,7 @@ module Make_indexed_data_snapshotable_storage (C : Raw_context.T) return (C.project t) let delete_snapshot s id = - C.remove_rec s (Snapshot_index.to_path id snapshot_name) >>= fun t -> + C.remove_rec s (snapshot_path id) >>= fun t -> Lwt.return (C.project t) end