From b8063b40fe621e3a8a834a939251a90a5bd26d21 Mon Sep 17 00:00:00 2001 From: Milo Davis Date: Wed, 10 Jan 2018 13:46:51 -0500 Subject: [PATCH] Storage: add omitted case to storage_error_encoding --- src/lib_embedded_protocol_alpha/src/raw_context.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib_embedded_protocol_alpha/src/raw_context.ml b/src/lib_embedded_protocol_alpha/src/raw_context.ml index ce391b9ce..8d249eb29 100644 --- a/src/lib_embedded_protocol_alpha/src/raw_context.ml +++ b/src/lib_embedded_protocol_alpha/src/raw_context.ml @@ -55,7 +55,7 @@ let storage_error_encoding = case (Tag 1) (obj2 (req "missing_key" (list string)) - (req "function" (string_enum ["get", `Get ; "set", `Set]))) + (req "function" (string_enum ["get", `Get ; "set", `Set ; "del", `Del ]))) (function Missing_key (key, f) -> Some (key, f) | _ -> None) (fun (key, f) -> Missing_key (key, f)) ; case (Tag 2)