Commit e7b4a654 authored by Max's avatar Max

Love: fix bytes encoding

parent 9ae5a6df
......@@ -11,7 +11,9 @@ module Data_encoding = struct
include Json
let json = any_ezjson_value
let int31 = int
let bytes = conv MBytes.to_string MBytes.of_string string
let bytes = conv
(fun h -> Hex.show @@ MBytes.to_hex h)
(fun s -> MBytes.of_hex (`Hex s)) string
let z = conv Z.to_string Z.of_string string
module Tez_repr = struct
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment