diff options
| author | Daniil Baturin <daniil@baturin.org> | 2017-12-13 15:28:52 +0100 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2017-12-13 15:29:21 +0100 |
| commit | cacc8ee6f2ccb43faa971a75d2c4585c8e1a27fc (patch) | |
| tree | f7a2390758f90307ff5e1982a2f6f3d225a53e78 /src/util.ml | |
| parent | 7373e8aea39cec0af507b20a8209bd4697e74674 (diff) | |
| download | vyconf-cacc8ee6f2ccb43faa971a75d2c4585c8e1a27fc.tar.gz vyconf-cacc8ee6f2ccb43faa971a75d2c4585c8e1a27fc.zip | |
Add debug logging of protobuf messages.
Diffstat (limited to 'src/util.ml')
| -rw-r--r-- | src/util.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/util.ml b/src/util.ml index 7f0d681..de85e3e 100644 --- a/src/util.ml +++ b/src/util.ml @@ -1,4 +1,4 @@ -(* Unavoidable module for functions that don't fit anywhere else *) +(** The unavoidable module for functions that don't fit anywhere else *) let find_xml_child name xml = let find_aux e = @@ -23,3 +23,9 @@ let string_of_path path = let absolute_path relative_path = FilePath.make_absolute (Sys.getcwd ()) relative_path + +(** Makes a hex dump of a byte string *) +let hexdump b = + let dump = ref "" in + Bytes.iter (fun c -> dump := Char.code c |> Printf.sprintf "%s %02x" !dump) b; + !dump |