Alpha: remove warning

This commit is contained in:
Grégoire Henry 2018-02-22 16:45:56 -05:00 committed by Benjamin Canou
parent 88e67707b7
commit dcc5bc6b1a

View File

@ -264,7 +264,6 @@ module Make_indexed_data_snapshotable_storage (C : Raw_context.T)
let data_name = ["current"]
let snapshot_name = ["snapshot"]
let snapshot_name_length = List.length snapshot_name
module C_data = Make_subcontext(C)(struct let name = data_name end)
module C_snapshot = Make_subcontext(C)(struct let name = snapshot_name end)