Shell: protection against serialisation error.

This commit is contained in:
Grégoire Henry 2017-02-26 01:25:47 +01:00
parent 20057079c6
commit b461b6c0c6

View File

@ -15,7 +15,12 @@ module Make_value (V : ENCODED_VALUE) = struct
match Data_encoding.Binary.of_bytes V.encoding b with
| None -> generic_error "Cannot parse data" (* TODO personalize *)
| Some v -> ok v
let to_bytes = Data_encoding.Binary.to_bytes V.encoding
let to_bytes v =
try Data_encoding.Binary.to_bytes V.encoding v
with exn ->
Logging.Node.State.log_error
"Exception while serializing value %a" pp_exn exn ;
MBytes.create 0
end
module Make_single_store (S : STORE) (N : NAME) (V : VALUE) = struct